*&---------------------------------------------------------------------*
*& Report ZTEST_12
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest_12.
DATA: ok_code TYPE sy-ucomm,
save_ok LIKE ok_code.
*定制控制 编辑对象定义
DATA go_container TYPE REF TO cl_gui_custom_container.
DATA go_editor TYPE REF TO cl_gui_textedit.
DATA: init,
m1(256) TYPE c OCCURS 0,
line(256) TYPE c.
START-OF-SELECTION.
CALL SCREEN 100.
** 获取文本框内容
* CALL METHOD go_editor->get_text_as_r3table
* IMPORTING
* table = m1.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ZTEST'.
* SET TITLEBAR 'xxx'.
IF init IS INITIAL.
init = 'X'.
CREATE OBJECT: go_container EXPORTING container_name = 'CUST'.
CREATE OBJECT go_editor
EXPORTING
parent = go_container
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 256
wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
ENDIF.
*设置文本框初始内容
CALL METHOD go_editor->set_text_as_r3table
EXPORTING
table = m1.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
DATA: lt_jsondata_end TYPE STANDARD TABLE OF char256.
*获取编辑后的内容
CALL METHOD go_editor->get_text_as_r3table
IMPORTING
table = lt_jsondata_end.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
创建屏幕100 ,并绘制contain name ,命名为CUST