HI,
see this example for creating text area.
DATA:container TYPE scrfname VALUE 'CONT',(cont is container in screen 101)
cl_container TYPE REF TO cl_gui_custom_container,
text_area TYPE REF TO cl_gui_textedit.
data:okcode type sy-ucomm.
set screen 101.
MODULE STATUS_0101 OUTPUT.
set PF-STATUS 'MENU'.
IF CL_CONTAINER IS NOT INITIAL.
CALL METHOD CL_CONTAINER->FREE
EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
CNTL_ERROR = 2.
IF SY-SUBRC <> 0.
MESSAGE A000(ZTMW_MSGTAB).
ENDIF.
CLEAR CL_CONTAINER."clearing the custom container1
ENDIF.
IF CL_CONTAINER IS INITIAL.
CREATE OBJECT CL_CONTAINER
EXPORTING CONTAINER_NAME = CONTAINER.
CREATE OBJECT TEXT_AREA
EXPORTING
parent = CL_CONTAINER
wordwrap_mode = cl_gui_textedit=>WORDWRAP_AT_WINDOWBORDER
wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
CALL METHOD CL_CONTAINER->link
EXPORTING
repid = sy-repid
dynnr = '0101'
container = CONTAINER.
CALL METHOD CL_CONTAINER->set_width
EXPORTING
width = 15.
CALL METHOD CL_CONTAINER->set_height
EXPORTING
height = 5.
ENDIF.
ENDMODULE. " STATUS_0101 OUTPUT
MODULE USER_COMMAND_0101 INPUT.
CASE OKCODE."okcode of screen 101
WHEN 'BACK'.
SET SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0101 INPUT
flow logic:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0101.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0101.
rgds,
bharat.
Bluesky
