长文本的获取:要求产品建一个长文本,根据时间,创建人等相关信息去STXH表内查找
FUNCTION 'READ_TEXT' 内参数的值
参数的值如果是抬头文本可以到表STXH查看,如果是项目文本可以到STXL查看
PERFORM frm_read_text USING gs_alv-ebeln gs_alv-ebelp 'F01' 'EKPO' CHANGING gs_alv-zxmwb. "项目文本
FORM frm_read_text USING p_vbeln
p_posnr
p_id
p_object
CHANGING p_beizu.
DATA: lt_tdline LIKE TABLE OF tline,
ls_tdline TYPE tline,
lv_tdname TYPE thead-tdname.
CLEAR:lt_tdline.
lv_tdname = p_vbeln && p_posnr.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = p_id
language = sy-langu
name = lv_tdname
object = p_object
TABLES
lines = lt_tdline
EXCEPTIONS
id = 01
language = 02
name = 03
not_found = 04
object = 05
reference_check = 06
wrong_access_to_archive = 07.
IF lt_tdline IS NOT INITIAL.
LOOP AT lt_tdline INTO ls_tdline.
CONCATENATE p_beizu ls_tdline-tdline INTO p_beizu.
ENDLOOP.
ENDIF.
ENDFORM.