使用事物代码SE37调用函数：READ_TEXT
按照下图方式输入，ID为F01; NAME为采购订单号+行项目号（5位）
程序：
DATA TMP_NAME TYPE THEAD-TDNAME.
DATA TMP_EBELN TYPE MATNR.
DATA TMP_EBELP TYPE EBELP.
DATA LINES LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA TMP10 TYPE CHAR10.
DATA TMP5 TYPE CHAR5.
***带出采购订单行项目-项目文本
CLEAR: TMP10,TMP5,TMP_NAME,LINES,GW_ITEM-GXTXT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "采购订单号补前导0
EXPORTING
INPUT = GW_ITEM-EBELN "采购订单号
IMPORTING
OUTPUT = TMP10.
* BREAK-POINT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "行项目号补前导0
EXPORTING
INPUT = GW_ITEM-EBELP“ 采购订单行项目号
IMPORTING
OUTPUT = TMP5.
CONCATENATE TMP10 TMP5 INTO TMP_NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F01'
LANGUAGE = SY-LANGU
NAME = TMP_NAME
OBJECT = 'EKPO'
TABLES
LINES = LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT LINES.
CONCATENATE GW_ITEM-GXTXT LINES-TDLINE INTO GW_ITEM-GXTXT.
ENDLOOP.