HI,
u have to pass the output internal table
<b>example:</b>
DATA:t_mara TYPE TABLE OF mara.
DATA:FCAT TYPE LVC_T_FCAT.
DATA:G_CONTAINER TYPE SCRFNAME VALUE 'TABC',"TABC is *container in screen 101
GRID TYPE REF TO CL_GUI_ALV_GRID,
G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
set screen 101.
MODULE STATUS_0101 output.
IF G_CUSTOM_CONTAINER IS INITIAL.
CREATE OBJECT G_CUSTOM_CONTAINER "CREATING OBJECT FOR CUSTOM CONTAINER
EXPORTING CONTAINER_NAME = G_CONTAINER.
CREATE OBJECT GRID "CREATING GRID IN WRKBNCH SCREEN
EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'MARA'
CHANGING
CT_FIELDCAT = FCAT[].
SELECT * from mara into table t_mara.
CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
CHANGING
IT_FIELDCATALOG = FCAT[]
IT_OUTTAB = t_MARA.
ENDIF.
ENDMODULE.
flow logic of screen 101:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0101.
PROCESS AFTER INPUT.
***************************************************************************
DATA:G_DOCKING_CONTAINER_1 TYPE REF TO CL_GUI_DOCKING_CONTAINER,
g_grid TYPE REF TO CL_GUI_ALV_GRID.
DATA:itab like sflight occurs 0 with header line,
okcode like sy-ucomm.
select * from sflight into table itab.
set screen 101.
MODULE STATUS_0101 OUTPUT.
SET PF-STATUS 'MENU'.
SET TITLEBAR 'TIT'.
perform create_and_init_controls.
ENDMODULE. " STATUS_0101 OUTPUT
FORM create_and_init_controls .
CREATE OBJECT G_DOCKING_CONTAINER_1
EXPORTING
REPID = sy-repid
DYNNR = '101'
SIDE = cl_gui_docking_container=>DOCK_AT_top
EXTENSION = 100.
CREATE OBJECT G_GRID
EXPORTING
I_PARENT = G_DOCKING_CONTAINER_1.
<b> CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'SFLIGHT'
CHANGING
IT_OUTTAB = itab[].</b>
ENDFORM. " create_and_init_controls
MODULE user_command_0101 INPUT.
CASE okcode.
WHEN 'BACK'.
SET SCREEN 0.
ENDCASE.
ENDMODULE. " user_command_0101 INPUT
flow logic of screen 101:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0101.
PROCESS AFTER INPUT.
MODULE user_command_0101.
rgds,
bharat.
Bluesky
