ABAP程序开发中,进行需要通过长文本来记录一些文本类的记录,这样就需要我们首先创建一个长文本对象,然后在程序中才可以进行调用,现在对创建 长文本对象的方法进行一个介绍:
1. T-CODE:SE75,如下图:
2.点击上图"Change"按钮,如下图
3.点击上图 "新建"图标,如下图
维护
文本对象ZL_T_2 描述
保存状态:选择”更新“
编辑应用程序:TN
行宽:72
点击上图”绿勾“保存,如下图
4.双击新创建的文本对象行,如下图:
5.点击上图”新建“按钮,如下图
完善信息,保存,即可完成ZL_T_2长文本的创建
6.程序调用
DATA LV_NAME LIKE THEAD-TDNAME. "Name
DATA GS_HEADER LIKE THEAD. "SAPscript: Text Header.
DATA GT_TEXT LIKE STANDARD TABLE OF TLINE WITH HEADER LINE.
GS_HEADER-TDSTYLE = 'S_STERMC'.
GS_HEADER-TDFORM = 'S_DOCU_SHOW'.
GS_HEADER-TDTITLE = 'GLOSSAR'.
GS_HEADER-TDOBJECT = 'ZL_T_2'. "文本对象
GS_HEADER-TDNAME = LV_NAME. "文本对象名
GS_HEADER-TDSPRAS = '1'. "语言
GS_HEADER-TDID = '0001'. "文本ID
GS_HEADER-TDLINESIZE = '72 '. "行宽
读取长文本内容
CALL FUNCTION 'READ_TEXT'EXPORTING
* CLIENT = SY-MANDT
ID = '0001'
LANGUAGE = '1'
NAME = LV_NAME
OBJECT = 'ZT_L_2'
TABLES
LINES = GT_TEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8
************
可编辑长文本的内容展示和编辑内容保存
************
PBO中:
CALL FUNCTION 'RH_EDITOR_SET'
EXPORTING
REPID = SY-REPID
DYNNR = SY-DYNNR
CONTROLNAME = 'LT' "屏幕空间名称
MAX_COLS = 79
SHOW_TOOL = 'X'
SHOW_STATUS = 'X'
DISPLAY_MODE = ''
TABLES
LINES = GT_TAB
EXCEPTIONS
CREATE_ERROR = 1
INTERNAL_ERROR = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
PAI中:
CALL FUNCTION 'RH_EDITOR_GET'
EXPORTING
CONTROLNAME = 'LT' "定制控制名称
TABLES
LINES = GT_TAB
EXCEPTIONS
INTERNAL_ERROR = 1
OTHERS = 2.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = GS_HEADER
SAVEMODE_DIRECT = 'X'
* INSERT = 'X'
TABLES
LINES = GT_TEXT.