abap 读取长文本
调用function
FORM frm_read_text USING u_vbeln TYPE vbeln
u_posnr TYPE posnr
CHANGING c_text1
c_text2.
DATA: it_tline LIKE tline OCCURS0WITH HEADER LINE.
DATA: lv_tdname LIKE stxh-tdname.
CLEAR: it_tline[],
lv_tdname.
CONCATENATE u_vbeln u_posnr INTO lv_tdname.
CALL FUNCTION'READ_TEXT'
EXPORTING
id = gc_id1
language = sy-langu
name = lv_tdname
object = gc_tdobject1
TABLES
lines = it_tline
EXCEPTIONS
not_found.
IF NOT it_tline[] IS INITIAL.
LOOP AT it_tline.
CONCATENATE c_text1 it_tline-tdline INTO c_text1.
ENDLOOP.
ENDIF.
双击长文本
相关主题