实战SAP：【总结】文本编辑器

DATA : ok_code TYPE sy-ucomm,

save_ok TYPE sy-ucomm.

DATA : init.

DATA : container TYPE REF TO cl_gui_custom_container.

DATA : editor TYPE REF TO cl_gui_textedit.

DATA : m1(256) TYPE c OCCURS 0,

line(256) TYPE c.

line = Please Input :.

append LINE to m1.

call SCREEN 100.

REFRESH m1.

CALL METHOD editor->get_text_as_r3table IMPORTING table = m1.

LOOP AT m1 INTO line.

WRITE : / line.

ENDLOOP.

MODULE user_command_0100 INPUT.

save_ok = ok_code.

CLEAR ok_code.

case save_ok.

when EXIT.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE.

MODULE status_0100 OUTPUT.

set PF-STATUS STATUS1.

IF init IS INITIAL.

init = X.

CREATE OBJECT : container EXPORTING container_name = P1.

CREATE OBJECT editor

EXPORTING

parent = container

wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position

wordwrap_position = 256

wordwrap_to_linebreak_mode = cl_gui_textedit=>true.

ENDIF.

CALL METHOD editor->set_text_as_r3table

EXPORTING

table = m1.

ENDMODULE.