" 写入
DATA: GS_HEADER TYPE THEAD .
DATA: GT_LTXTS TYPE STANDARD TABLE OF TLINE .
DATA: LW_LTXT TYPE TLINE .
START-OF-SELECTION .
CLEAR GT_LTXTS[] .
CLEAR LW_LTXT .
*
" LW_LTXT-TDFORMAT = '1'.
LW_LTXT-TDLINE = '嘎嘎嘎嘎嘎过过过过'. " 长文本
APPEND LW_LTXT TO GT_LTXTS .
CLEAR GS_HEADER.
GS_HEADER-TDOBJECT = 'VBBK' . "文本对象
GS_HEADER-TDID = 'Z003'. "文本ID
GS_HEADER-TDSPRAS = SY-LANGU. "语言
GS_HEADER-TDNAME = '0080015801'. "输入参数
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = GS_HEADER
SAVEMODE_DIRECT = 'X'
TABLES
LINES = GT_LTXTS.
IF SY-SUBRC <> 0.
ROLLBACK WORK .
ELSE.
COMMIT WORK AND WAIT .
ENDIF.
"读取
"DATA: C_TEXT1 TYPE STRING. "长文本1
DATA: U_NAME TYPE TDOBNAME,
U_TDID TYPE TDID,
U_TDOBJECT TYPE TDOBJECT,
U_SPLIT TYPE STRING.
U_NAME = '0080015801'. "订单号
U_TDID ='Z003'. "文本ID
U_TDOBJECT = 'VBBK'. "文本对象
DATA: LS_STXH TYPE STXH,
LS_STXL TYPE STXL,
LT_LINES TYPE TABLE OF TLINE WITH HEADER LINE.
DATA C_TEXT TYPE STRING .
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = U_TDID
LANGUAGE = SY-LANGU
NAME = U_NAME
OBJECT = U_TDOBJECT
TABLES
LINES = LT_LINES[]
EXCEPTIONS
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.
CLEAR C_TEXT.
LOOP AT LT_LINES.
CONCATENATE C_TEXT LT_LINES-TDLINE INTO C_TEXT SEPARATED BY
U_SPLIT. "解决回车事件 SPACE
CLEAR LT_LINES.
ENDLOOP.
CONDENSE C_TEXT NO-GAPS.
WRITE: C_TEXT.
ENDIF.