读取长文本 “read text”

在alv要求输出长文本是 使用函数 read text

例图.png

DATA: GT_TEXT TYPE TABLE OF TLINE WITH HEADER LINE,
      GS_TEXT LIKE LINE OF GT_TEXT.
DATA: L_NAME TYPE THEAD-TDNAME.```

L_NAME = GT_X-EBELN.
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = 'F01'
LANGUAGE = '1'
NAME = L_NAME
OBJECT = 'EKKO'
TABLES
LINES = GT_TEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF GT_X[] IS NOT INITIAL.
LOOP AT GT_TEXT INTO GS_TEXT.
DATA B TYPE STRING.
CONCATENATE LINES OF GT_TEXT INTO B.
GT_X-TXT = B.
ENDLOOP.
ENDIF.
MODIFY GT_X.
CLEAR GT_X1.
CLEAR GT_X-TXT.```