ABAP-读取长文本函数

DATA:lt_line   TYPE TABLE OF tline,
     lv_string TYPE thead-tdname.

CLEAR lv_string .
REFRESH lt_line.
"lv_string一般都是要找规律拼接起来的
lv_string = <fs_data>-matnr .
lv_string+44(10) = <fs_data>-charg .

CALL FUNCTION 'READ_TEXT'
  EXPORTING
    client                  = sy-mandt
    id                      = 'VERM'
    language                = '1'
    name                    = lv_string
    object                  = 'CHARGE'
*   ARCHIVE_HANDLE          = 0
*   LOCAL_CAT               = ' '
*     IMPORTING
*   HEADER                  =
*   OLD_LINE_COUNTER        =
  TABLES
    lines                   = lt_line
  EXCEPTIONS
    id                      = 1
    language                = 2
    name                    = 3
    not_found               = 4
    object                  = 5
    reference_check         = 6
    wrong_access_to_archive = 7
    OTHERS                  = 8.

LOOP AT lt_line INTO DATA(ls_liness).
  IF ls_liness-tdline IS NOT INITIAL.
    "赋值
    <fs_data>-tdline1 = <fs_data>-tdline1 && ls_liness-tdline.
  ENDIF.
ENDLOOP.