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

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.

*这里是QAVE ，QBST是后面的文本