取长文本 READ_TEXT

****取长文本
 FORM GET_TEXT USING TDID TDNAME.

  SELECT SINGLE mandt tdobject tdname tdid tdspras
   INTO  (l_mandt,l_tdobject,l_tdname,l_tdid,l_tdspras)
   FROM stxh
   CLIENT SPECIFIED
   WHERE  mandt = sy-mandt
          AND tdid = TDID
          AND tdname = TDNAME.
  if sy-subrc = 0.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        client                        = sy-mandt
        id                            = l_tdid
        language                      = l_tdspras
        name                          = l_tdname
        object                        = l_tdobject
*      ARCHIVE_HANDLE                = 0
*      LOCAL_CAT                     = ' '
*    IMPORTING
*      HEADER                        =
      TABLES
        lines                         = i_tline
     EXCEPTIONS
       id                            = 1
       language                      = 2
       name                          = 3
       not_found                     = 4
       object                        = 5
       reference_check               = 6
       wrong_access_to_archive       = 7
       OTHERS                        = 8.

    LOOP AT i_tline.
*      IF sy-tabix = 1.
        if TDID = 'MKO'.
          CONCATENATE GT_OUTPUT-STKTXL i_tline-tdline into GT_OUTPUT-STKTXL.
          CONDENSE GT_OUTPUT-STKTXL.
*          GT_OUTPUT-STKTXL = i_tline-tdline.
        else.
          CONCATENATE GT_OUTPUT-POTXL i_tline-tdline into GT_OUTPUT-POTXL.
          CONDENSE GT_OUTPUT-POTXL.
*          GT_OUTPUT-POTXL = i_tline-tdline.
        endif.
*      ENDIF.
    ENDLOOP.
  endif.
ENDFORM.

分类: SAP/ABAP