数据源增强-读文本

  TABLES: zorder_text.
  DATA: wa_zorder_text LIKE LINE OF e_t_data,
 l_name(70) TYPE c,
l_tline1 LIKE tline OCCURS 0 WITH HEADER LINE,

      l_name = wa_zorder_text-vbeln .

      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          client                        = sy-mandt
          id                            = 'Z002'
          language                      = sy-langu
          name                          = l_name
          object                        = 'VBBK'
        TABLES
          lines                         = l_tline1
       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 'NO DATA' TYPE 'S'.
      ENDIF.

      READ TABLE l_tline1 INDEX 1.
      wa_zorder_text-sgtxt1 = l_tline1-tdline.
      MODIFY e_t_data FROM wa_zorder_text.
    ENDLOOP.
    s_counter_datapakid = s_counter_datapakid + 1.

  ENDIF.              
ENDFUNCTION.