定义新的长文本对象并用cl_gui_textedit编辑
*&---------------------------------*
*& Report Y_PCITCAO_TEST_TEXTEDIT
*&
*&---------------------------------*
*&
*&
*&---------------------------------*
REPORT Y_PCITCAO_TEST_TEXTEDIT.
TABLES: sscrfields.
DATA: x_docking TYPE REF TO cl_gui_docking_container,
x_editor TYPE REF TO cl_gui_textedit,
lines TYPE STANDARD TABLE OF tline ,
header LIKE thead .
TYPES: BEGIN OF textline,
line(255) TYPE c,
END OF textline .
DATA texttable TYPE TABLE OF textline .
PARAMETERS:p_name(70) DEFAULT '12345678'.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
INITIALIZATION.
sscrfields-functxt_01 = 'Save'.
sscrfields-functxt_02 = 'Read'.
AT SELECTION-SCREEN OUTPUT.
IF x_docking IS INITIAL .
CREATE OBJECT x_docking
EXPORTING
repid = sy-repid
dynnr = sy-dynnr
side = 4
extension = '255'
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5.
CREATE OBJECT x_editor
EXPORTING
parent = x_docking
wordwrap_mode = 2
wordwrap_position = 72
max_number_chars = 100000.
ENDIF .
AT SELECTION-SCREEN.
header-tdobject = 'TEXT'.
header-tdname = p_name.
header-tdid = 'ST'.
header-tdspras = sy-langu.
CASE sy-ucomm .
WHEN 'FC01'.
PERFORM savetext.
WHEN 'FC02'.
PERFORM readtext.
ENDCASE.
*&---------------------------------*
*& Form savetext
*&---------------------------------*
FORM savetext.
CALL METHOD x_editor->get_text_as_stream
IMPORTING
text = texttable
EXCEPTIONS
error_dp = 1
error_cntl_call_method = 2
OTHERS = 3.
CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'
EXPORTING
language = sy-langu
TABLES
text_stream = texttable
itf_text = lines.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = header
savemode_direct = 'X'
TABLES
lines = lines
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc = 0.
MESSAGE s000(oo) WITH '保存成功'.
COMMIT WORK.
ELSE.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "savetext
*&---------------------------------*
*& Form readtext
*&---------------------------------*
FORM readtext.
CLEAR:texttable,texttable[].
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = header-tdid
language = sy-langu
name = p_name
object = header-tdobject
TABLES
lines = 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.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'
EXPORTING
language = sy-langu
TABLES
itf_text = lines
text_stream = texttable.
CALL METHOD x_editor->set_text_as_stream
EXPORTING
text = texttable
EXCEPTIONS
error_dp = 1
error_dp_create = 2
OTHERS = 3.
ENDFORM. "readtext
注:本例中长文本object是系统自带的，如本例的tdobject(TEXT)和tdid(ST)，也可以在需要在表TTXOB和TTXID中维护（TCODE:SE75）
