CALL READ_TEXT FUNCTION

 

DATA: BEGIN OF T_LINES OCCURS 10.

        INCLUDE STRUCTURE TLINE.

DATA: END OF T_LINES.

 

FORM READ_TEXT USING L_ID

                CHANGING L_TEXT.

 

  DATA: L_NAME LIKE STXH-TDNAME.

  REFRESH T_LINES[].

  L_NAME = ITAB-VBELN.

 

  CALL FUNCTION 'READ_TEXT' (reference ZISD0057)

    EXPORTING

      CLIENT                        = SY-MANDT

      ID                            = L_ID（Text ID）

      LANGUAGE                      = 'E'

      NAME                          = L_NAME

      OBJECT                        = 'VBBK'（对象名，可在查看Text ID中查看相对应的对象名）

    TABLES

      LINES                         = T_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.

    READ TABLE T_LINES INDEX 1.

    IF SY-SUBRC = 0.

      L_TEXT = T_LINES-TDLINE.

    ENDIF.

  ENDIF.

ENDFORM.                    " READ_TEXT