****取长文本
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.