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.

双击长文本