hi vikas,
i think this code will be helpful to u try it .
* Data declaration
* Reference variables
data : lr_cont type ref to cl_gui_custom_contAiner,
lr_alv type ref to cl_gui_alv_grid.
* Final inernal table
data : lt_vbap type table of vbap.
PARAMETERS p_vbeln type vbeln_va.
START-OF-SELECTION.
* Step 1:
* CREATE SCREEN USING CALL SCREEN SCREEN NUMBER
call screen 9000.
* DOUBLE CLICK ON 9000 SCREEN NUMBER AND PROVIDE SHORT DESCRIPTION OF THE SCREEN
* cLICK ON LAYOUT BUTTON ON APPLICATION TOOLBAR TO NAVIGATE SCREEN LAOUT/EDITOR
MODULE STATUS_9000 OUTPUT.
*Step 2:
* CREATE OBJECT FOR CL_GUI_CUSTOM_CONTAINER and
* pass CUSTOM CONTROLLER UI name as Importing parameter
CREATE OBJECT LR_CONT
EXPORTING
CONTAINER_NAME = 'CONT'.
*STEP 3:
* CREATE OBJECT FOR CL_GUI_ALV_GRID and
* pass CL_GUI_CUSTOM_CONTAINER object as Importing parameter
CREATE OBJECT LR_ALV
EXPORTING
I_PARENT = LR_CONT.
* Step 4:
select * from vbap into table lt_vbap where vbeln = p_vbeln.
* STEP 5 : OPTIONAL (FIELD CATALOG MERGE)
DATA : LT_FLDCAT TYPE LVC_T_FCAT, "INTERNAL TABLE
WA_FLDCAT TYPE LVC_S_FCAT. "WORKAREA
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'VBAP'
CHANGING
CT_FIELDCAT = LT_FLDCAT.
* MODIFY YOUR FIELD CATALOG
LOOP AT LT_FLDCAT INTO WA_FLDCAT.
IF WA_FLDCAT-FIELDNAME = 'VBELN'.
WA_FLDCAT-SCRTEXT_L = 'Order number'.
WA_FLDCAT-SCRTEXT_M = 'Order number'.
WA_FLDCAT-SCRTEXT_S = 'Order number'.
MODIFY LT_FLDCAT FROM WA_FLDCAT.
ENDIF.
IF WA_FLDCAT-FIELDNAME = 'POSNR'.
ENDIF.
ENDLOOP.
*STEP 6 :
*Generate ALV output using below Method using CL_GUI_ALV_GRID object
*Method : SET_TABLE_FOR_FIRST_DISPALY
*Pass FINAL internal table
*Pass Field catalog Internal table
CALL METHOD LR_ALV->SET_TABLE_FOR_FIRST_DISPLAY
CHANGING
IT_OUTTAB = LT_VBAP
IT_FIELDCATALOG = LT_FLDCAT.
ENDMODULE. " STATUS_9000 OUTPUT
Regards
Raju