长文本读取

data:ls_stxh like stxh.
  concatenate wcswapi-objnr 'LTXT' into lv_long.

  select single * from stxh client specified
    into ls_stxh
   where mandt    = sy-mandt
     and tdobject = 'WAPI'
     and tdname   = lv_long
     and tdid     = 'LTXT'
     and tdspras  = sy-langu.
  if sy-subrc = 0.
    call function 'READ_TEXT'
     exporting
*        CLIENT                        = SY-MANDT
       id                            = 'LTXT'
       language                      = sy-langu
       name                          = lv_long
       object                        = 'WAPI'
*        ARCHIVE_HANDLE                = 0
*        LOCAL_CAT                     = ' '
*      IMPORTING
*        HEADER                        =
     tables
       lines                         = lt_desc
*      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.
*      LOOP AT lt_desc INTO ls_desc.
*        CONCATENATE lv_ldesc ls_desc-tdline INTO lv_ldesc.
*      ENDLOOP.
*    ENDIF.
  endif.