06-17-2008 11:58 AM
DATA: GRID1 TYPE REF TO CL_GUI_ALV_GRID,
CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
*DATA GRISD.
DATA ITAB_SFLIGHT LIKE TABLE OF SFLIGHT.
SELECT * FROM SFLIGHT INTO TABLE ITAB_SFLIGHT.
IF SY-SUBRC EQ 0.
WRITE 'hi'.
ENDIF.
CALL SCREEN 100.
BCALV_GRID_DEMO_0100_CONT1
&----
*& Module STATUS_0100 OUTPUT
&----
text
----
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'con'.
CREATE OBJECT GRID1 EXPORTING I_PARENT = CONTAINER1.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING I_STRUCTURE_NAME = 'sflight'
CHANGING
IT_OUTTAB = ITAB_SFLIGHT.
ENDMODULE. " STATUS_0100 OUTPUT
06-17-2008 11:59 AM
Hi,
in CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY give structure name in uppercase.
06-17-2008 12:01 PM
Hi,
Dont use small letters which are defined with in the single quote, try to make those as capital letters.
Rgds,
Bujji
06-17-2008 12:07 PM
DATA: GRID1 TYPE REF TO CL_GUI_ALV_GRID,
CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
*DATA GRISD.
DATA ITAB_SFLIGHT LIKE TABLE OF SFLIGHT.
SELECT * FROM SFLIGHT INTO TABLE ITAB_SFLIGHT.
IF SY-SUBRC EQ 0.
WRITE 'hi'.
ENDIF.
CALL SCREEN 100.
BCALV_GRID_DEMO_0100_CONT1
&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
&---------------------------------------------------------------------
text
----------------------------------------------------------------------
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'con'.
CREATE OBJECT GRID1 EXPORTING I_PARENT = CONTAINER1.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING I_STRUCTURE_NAME = 'SFLIGHT'
CHANGING
IT_OUTTAB = ITAB_SFLIGHT.
ENDMODULE. " STATUS_0100 OUTPUT
06-18-2008 11:32 AM
Hi Ansuman Parhi,
DATA: GRID1 TYPE REF TO CL_GUI_ALV_GRID,
CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
*DATA GRISD.
DATA ITAB_SFLIGHT LIKE TABLE OF SFLIGHT.
SELECT * FROM SFLIGHT INTO TABLE ITAB_SFLIGHT.
IF SY-SUBRC EQ 0.
WRITE 'hi'.
ENDIF.
CALL SCREEN 100.
BCALV_GRID_DEMO_0100_CONT1
&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
&---------------------------------------------------------------------
text
----------------------------------------------------------------------
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'CON'. " Use caps only in single quotes because its case sensitive
CREATE OBJECT GRID1 EXPORTING I_PARENT = CONTAINER1.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING I_STRUCTURE_NAME = 'SFLIGHT' " Use caps only in single quotes because its case sensitive
CHANGING
IT_OUTTAB = ITAB_SFLIGHT.
ENDMODULE. " STATUS_0100 OUTPUT
Hope it will solve your problem..
Reward points if useful..
Thanks & Regards
ilesh 24x7