读取QM决策长文本的ABAP测试程序

最新推荐文章于 2024-09-14 15:29:58 发布

thinkpada31p

最新推荐文章于 2024-09-14 15:29:58 发布

阅读量922

点赞数

分类专栏： ABAP 文章标签：测试 object reference archive access

本文链接：https://blog.csdn.net/thinkpada31p/article/details/6399076

版权

ABAP 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

REPORT  ZQM0111                                 .
TYPES : BEGIN OF TY_TEXT,
TDOBJECT TYPE STXH-TDOBJECT, "TEXTS: APPLICATION OBJECT
TDNAME TYPE STXH-TDNAME, "NAME
TDID TYPE STXH-TDID, "TEXT ID
TDSPRAS TYPE STXH-TDSPRAS, "LANGUAGE KEY
END OF TY_TEXT.

DATA : IT_TLINE TYPE TABLE OF TLINE,
WA_TLINE TYPE TLINE,
IT_TEXT TYPE TABLE OF TY_TEXT,
WA_TEXT TYPE TY_TEXT.

DATA : ID LIKE  THEAD-TDID.
*"       LIKE  THEAD-TDSPRAS
*"     VALUE(NAME) LIKE  THEAD-TDNAME
*"     VALUE(OBJECT) LIKE  THEAD-TDOBJECT

CALL FUNCTION 'READ_TEXT'
EXPORTING

ID =  'QAVE'
LANGUAGE = '1'
NAME =  '010000000106'
OBJECT = 'QPRUEFLOS'
TABLES
LINES = IT_TLINE
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8.

* DELETE IT_TLINE WHERE TDLINE IS INITIAL.
LOOP AT IT_TLINE INTO WA_TLINE.
write:/ WA_TLINE-TDLINE.
ENDLOOP.