在SCREEN 100 中创建一个定制控制,命名为PP 代码如下: *&---------------------------------------------------------------------* *& Report ZTESTA_01 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ztesta_01. DATA: ok_code TYPE sy-ucomm, save_ok LIKE ok_code. *定制控制 编辑对象定义 DATA container TYPE REF TO cl_gui_custom_container. DATA editor TYPE REF TO cl_gui_textedit. DATA: init, m1(256) TYPE c OCCURS 0, line(256) TYPE c. line = '请输入:'. 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 STATUS_0100 OUTPUT