report zpm_alv_colour no standard page heading .

tables: t001w.
*
include <icon>.
type-pools: slis.

data: gt_fieldcat type slis_t_fieldcat_alv.
data: wa_fieldcat type slis_fieldcat_alv.
data: gs_layout type slis_layout_alv.
data: farb1 type slis_specialcol_alv.
*
data i type i.
data: begin of itab occurs 10,
  werks like t001w-werks,
  name1 like t001w-name1,
  farb type slis_t_specialcol_alv,
end of itab.
*

perform create_fct.
perform create_layout.
perform read_data.
perform data_processing.
*
call function 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    is_layout     = gs_layout
    it_fieldcat   = gt_fieldcat
  TABLES
    t_outtab      = itab
  EXCEPTIONS
    program_error = 1
    others        = 2.

*&---------------------------------------------------------------------*
*&      Form  create_fct
*&---------------------------------------------------------------------*
FORM create_fct .
  refresh gt_fieldcat.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'WERKS'.
  wa_fieldcat-ref_tabname = 'T001W'.
  wa_fieldcat-emphasize = 'C2'.
  append wa_fieldcat to gt_fieldcat.

  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'NAME1'.
  wa_fieldcat-ref_tabname = 'T001W'.
  wa_fieldcat-emphasize = 'C2'.
  append wa_fieldcat to gt_fieldcat.

ENDFORM.                    " create_fct

*&---------------------------------------------------------------------*
*&      Form  create_layout
*&---------------------------------------------------------------------*
FORM create_layout .
  clear gs_layout.
  gs_layout-coltab_fieldname = 'FARB'.

ENDFORM.                    " create_layout

*&---------------------------------------------------------------------*
*&      Form  read_data
*&---------------------------------------------------------------------*
FORM read_data .
  refresh itab.
  select * from t001w into corresponding fields of table itab.
ENDFORM.                    " read_data

*&---------------------------------------------------------------------*
*&      Form  data_processing
*&---------------------------------------------------------------------*
FORM data_processing .
  loop at itab.
    i = sy-tabix.
    if i < 3.
      clear farb1.
      farb1-fieldname = 'WERKS'.
      farb1-color-col = 2.
      append farb1 to itab-farb.

      farb1-fieldname = 'NAME1'.
      farb1-color-col = 3.
      append farb1 to itab-farb.
    else.
      clear farb1.
      farb1-fieldname = 'WERKS'.
      farb1-color-col = 6.
      append farb1 to itab-farb.

      farb1-fieldname = 'NAME1'.
      farb1-color-col = 6.
      append farb1 to itab-farb.
    endif.
    modify itab index i.
  endloop.

ENDFORM.                    " data_processing