在SCREEN 100 中创建一个定制控制，命名为PP
代码如下：

view plaincopy to clipboardprint?
*&---------------------------------------------------------------------*  
*& 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  
*&---------------------------------------------------------------------*  
*       text  
*----------------------------------------------------------------------*  
MODULE status_0100 OUTPUT.  
*  SET PF-STATUS 'xxxxxxxx'.  
*  SET TITLEBAR 'xxx'.  
  IF init IS INITIAL.  
    init = 'X'.  
    CREATE OBJECT: container EXPORTING container_name = 'PP'.  
 
    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.                 " STATUS_0100  OUTPUT  
*&---------------------------------------------------------------------*  
*&      Module  USER_COMMAND_0100  INPUT  
*&---------------------------------------------------------------------*  
*       text  
*----------------------------------------------------------------------*  
MODULE user_command_0100 INPUT.  
  save_ok = ok_code.  
  CLEAR ok_code.  
  CASE save_ok.  
    WHEN 'EXIT'.  
      LEAVE TO SCREEN 0.  
  ENDCASE.  
ENDMODULE.                 " USER_COMMAND_0100  INPUT 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/leechirslcc/archive/2009/08/07/4422837.aspx