06-18-2008 5:17 AM
REPORT ZDEMO_ALV .
DATA: OK_CODE LIKE SY-UCOMM,
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.
*
*&----
*
*& Module STATUS_0100 OUTPUT
*&----
*
text
*----
*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ST100'.
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
&----
*& Module USER_COMMAND_0100 INPUT
&----
text
----
MODULE USER_COMMAND_0100 INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
06-18-2008 5:43 AM
Try the Following change
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'con'.
To
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'CON'.
06-18-2008 5:43 AM
Try the Following change
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'con'.
To
CREATE OBJECT CONTAINER1 EXPORTING CONTAINER_NAME = 'CON'.