PERFORM frm_read_text USING 'B01' lv_name 'EBANH' CHANGING ls_ZMMS001d-txz01.
FORM frm_read_text USING fid fname fobject CHANGING c_text.
DATA:lv_str TYPE string.
DATA : lv_tdname LIKE thead-tdname.
DATA: lt_tline TYPE TABLE OF tline.
DATA: ls_tline TYPE tline.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = fid " 文本ID的值
language = sy-langu " 语言的值 1表示中文
name = fname " 文本名的值
object = fobject " 文本对象的值
TABLES
lines = lt_tline
EXCEPTIONS
" EXCEPTIONS必须写，否则表头文本为空时程序将dump
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.
ELSE.
LOOP AT lt_tline INTO ls_tline.
CONCATENATE lv_str ls_tline-tdline INTO lv_str.
ENDLOOP.
ENDIF.
c_text = lv_str.
ENDFORM.