Hi experts
in the below program i got an error "no fieldcatalog is available '
but i have declared i am not knowing where am i wrong please correct me as early as possible .
PROGRAM ZALV_GRID_OO_COLOR_ROWS .
&----
*& Module STATUS_0100 OUTPUT
&----
text
----
DATA: O_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
O_GRID TYPE REF TO CL_GUI_ALV_GRID .
DATA : BEGIN OF WA_T001,
BUKRS TYPE BUKRS,
BUTXT TYPE BUTXT,
ORT01 TYPE ORT01,
LAND1 TYPE LAND1,
LINE_COLOR(4) TYPE C ,
END OF WA_T001 .
DATA: IT_T001 LIKE TABLE OF WA_T001 .
DATA: WA_LAYOUT TYPE LVC_S_LAYO .
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ZSTATUS'.
CREAT CONTAINER OBJ***
CREATE OBJECT O_CONTAINER
EXPORTING
PARENT =
CONTAINER_NAME = 'CONTAINER'
STYLE =
LIFETIME = lifetime_default
REPID =
DYNNR =
NO_AUTODEF_PROGID_DYNNR =
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
CREATE_ERROR = 3
LIFETIME_ERROR = 4
LIFETIME_DYNPRO_DYNPRO_LINK = 5
others = 6
.
IF SY-SUBRC = 0.
CREATE OBJECT O_GRID
EXPORTING
I_PARENT = O_CONTAINER
.
IF SY-SUBRC = 0.
****PROVIDE COLOR TO 3 RECORD**
WA_LAYOUT-INFO_FNAME = 'LINE_COLOR' .
WA_T001-LINE_COLOR = 'C111' .
MODIFY IT_T001 FROM WA_T001
INDEX 3 TRANSPORTING LINE_COLOR .
WA_LAYOUT-SEL_MODE = 'D' .
CALL METHOD O_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'WA_T001'
IS_LAYOUT = WA_LAYOUT
CHANGING
IT_OUTTAB = IT_T001
.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Module READ_DATA OUTPUT
&----
text
----
MODULE READ_DATA OUTPUT.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_T001 FROM T001 UP TO 10
ROWS .
ENDMODULE. " READ_DATA OUTPUT
&----
*& Module USER_COMMAND_0100 INPUT
&----
text
----
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM .
WHEN 'BACK' .
LEAVE TO SCREEN 0 .
ENDCASE .
ENDMODULE. " USER_COMMAND_0100 INPUT