Skip to Content
0
Former Member
Dec 28, 2007 at 08:46 AM

ALV_OO

35 Views

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