ABAP 读取销售订单抬头文本自建函数

FORM frm_read_txt USING vbeln LIKE vbak-vbeln
                  CHANGING txt .

DATA :lc_name          TYPE thead-tdname,
        lit_lines        TYPE TABLE OF tline,
        lwa_lines        TYPE tline.
CLEAR: lit_lines ,
       lc_name,
       lwa_lines.
    lc_name = vbeln.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
*       CLIENT                  = SY-MANDT
        id                      = '0001'
        language                = sy-langu
        name                    = lc_name
        object                  = 'VBBK'
*       ARCHIVE_HANDLE          = 0
*       LOCAL_CAT               = ' '
*     IMPORTING
*       HEADER                  =
      TABLES
        lines                   = lit_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 = 4.
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
*         CLIENT                  = SY-MANDT
          id                      = '0001'
          language                = sy-langu
          name                    = lc_name
          object                  = 'VBBK'
*         ARCHIVE_HANDLE          = 0
*         LOCAL_CAT               = ' '
*     IMPORTING
*         HEADER                  =
        TABLES
          lines                   = lit_lines
        EXCEPTIONS
          id                      = 1
          language                = 2
          name                    = 3
          not_found               = 4
          object                  = 5
          reference_check         = 6
          wrong_access_to_archive = 7
          OTHERS                  = 8.
    ENDIF.

    LOOP AT lit_lines INTO lwa_lines.
*      GWA_OUTPUT-RISE_TEXT = LWA_LINES-TDLINE .
      CONCATENATE txt lwa_lines-tdline INTO txt.
    ENDLOOP.

ENDFORM.