REPORT  Z_CHANGWENBEN_001.

DATA: CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      EDITOR01    TYPE REF TO CL_GUI_TEXTEDIT.

START-OF-SELECTION.
  CALL SCREEN 0100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'S0100'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  LEAVE TO SCREEN 0.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  INIT  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE INIT OUTPUT.
  PERFORM CREATE_CON.
  PERFORM CREATE_EDI.
ENDMODULE.                 " INIT  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  CREATE_CON
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_CON .
  IF CONTAINER IS INITIAL .
    CREATE OBJECT CONTAINER
      EXPORTING
        CONTAINER_NAME = 'CONTAINER01'.
  ENDIF.
ENDFORM.                    " CREATE_CON
*&---------------------------------------------------------------------*
*&      Form  CREATE_EDI
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_EDI .
  IF EDITOR01 IS INITIAL.
    CREATE OBJECT EDITOR01
      EXPORTING
         PARENT = container
         WORDWRAP_MODE = cl_gui_textedit=>WORDWRAP_AT_FIXED_POSITION
         WORDWRAP_POSITION = 20
         WORDWRAP_TO_LINEBREAK_MODE = cl_gui_textedit=>FALSE
         MAX_NUMBER_CHARS = 100000.
  ENDIF.
ENDFORM.                    " CREATE_EDI