How to select a color of cell in REUSE_ALV_HIERSEQ_LIST_DISPLAY

Question

Hi.
I need to select a color of a cell in REUSE_ALV_HIERSEQ_LIST_DISPLAY.
I have found an example, but 
It shows how to select a color of sell in REUSE_ALV_LIST_DISPLAY.
Can you give me an example of code?
Thanks.

Answer 1

Here ia a simple example of the method how to paint a cell / line / column using REUSE_ALV_HIERSEQ_LIST_DISPLAY  function.
  Programm:    zalv_hierseq_color
  Paint a line, a colomn, or a cell
  using REUSE_ALV_HIERSEQ_LIST_DISPLAY
  Victor Stupin, Russia 2009
REPORT zalv_hierseq_color.
TABLES: spfli.
TYPE-POOLS: slis.
SELECTION-SCREEN BEGIN OF BLOCK rad1.
PARAMETERS:
        p_row TYPE i,
        p_col TYPE i.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN COMMENT /1(50) comm1.
SELECTION-SCREEN COMMENT /1(50) comm2.
SELECTION-SCREEN COMMENT /1(50) comm3.
SELECTION-SCREEN END OF BLOCK rad1.
INITIALIZATION.
  comm1 = 'Paint a line: fill ONLY p_row (p_col is empty)'.
  comm2 = 'Paint a colomn: fill ONLY p_col (r_row is empty)'.
  comm3 = 'Paint a cell: fill P_COL and R_ROW'.
  DATA:
        t_fieldcat TYPE slis_t_fieldcat_alv,
        fs_fieldcat LIKE LINE OF t_fieldcat,
        fs_layout TYPE slis_layout_alv ,
        w_color(4) ,
        w_row TYPE i,
        w_fieldname(20),
        w_prog TYPE sy-repid.
  DATA:
  BEGIN OF t_spfli OCCURS 0,
        color(4),
        checkbox ,
        cell     TYPE slis_t_specialcol_alv,
        carrid   TYPE spfli-carrid,
        connid   TYPE spfli-connid,
        cityfrom TYPE spfli-cityfrom,
        cityto   TYPE spfli-cityto,
        distance TYPE spfli-distance,
        keyln    TYPE int4,
        box      TYPE char1,
        lineno   TYPE int4,
  END OF t_spfli.
  DATA:
  fs_cell LIKE LINE OF t_spfli-cell.
  DATA: gt_item    LIKE TABLE OF t_spfli WITH HEADER LINE,
        gt_header  LIKE TABLE OF t_spfli WITH HEADER LINE,
        gs_keyinfo TYPE slis_keyinfo_alv.
START-OF-SELECTION.
  SELECT *
  FROM spfli
  INTO CORRESPONDING FIELDS OF TABLE t_spfli.
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 1.
  fs_fieldcat-tabname = 'GT_HEADER'.
  fs_fieldcat-fieldname = 'CARRID'.
  fs_fieldcat-ref_tabname = 'SPFLI'.
  fs_fieldcat-key = 'X'.
  fs_fieldcat-hotspot = 'X'.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat .
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 2.
  fs_fieldcat-tabname = 'GT_HEADER'.
  fs_fieldcat-fieldname = 'CONNID'.
  fs_fieldcat-ref_tabname = 'SPFLI'.
  fs_fieldcat-key = 'X'.
  fs_fieldcat-hotspot = 'X'.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat .
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 3.
  fs_fieldcat-tabname = 'GT_HEADER'.
  fs_fieldcat-fieldname = 'DISTANCE'.
  fs_fieldcat-key = ' '.
  fs_fieldcat-edit = 'X'.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat.
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 4.
  fs_fieldcat-tabname = 'GT_HEADER'.
  fs_fieldcat-fieldname = 'CITYFROM'.
  fs_fieldcat-ref_tabname = 'SPFLI'.
  fs_fieldcat-key = ' '.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat .
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 5.
  fs_fieldcat-tabname = 'GT_ITEM'.
  fs_fieldcat-fieldname = 'CARRID'.
  fs_fieldcat-ref_tabname = 'SPFLI'.
  fs_fieldcat-key = 'X'.
  fs_fieldcat-hotspot = 'X'.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat .
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 6.
  fs_fieldcat-tabname = 'GT_ITEM'.
  fs_fieldcat-fieldname = 'CONNID'.
  fs_fieldcat-ref_tabname = 'SPFLI'.
  fs_fieldcat-key = 'X'.
  fs_fieldcat-hotspot = 'X'.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat.
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 7.
  fs_fieldcat-tabname = 'GT_ITEM'.
  fs_fieldcat-fieldname = 'DISTANCE'.
  fs_fieldcat-key = ' '.
  fs_fieldcat-edit = 'X'.
  APPEND fs_fieldcat TO t_fieldcat.
  CLEAR fs_fieldcat.
  fs_fieldcat-row_pos = 1.
  fs_fieldcat-col_pos = 8.
  fs_fieldcat-tabname = 'GT_ITEM'.
  fs_fieldcat-fieldname = 'CITYFROM'.
  fs_fieldcat-ref_tabname = 'SPFLI'.
  fs_fieldcat-key = ' '.
  APPEND fs_fieldcat TO t_fieldcat.
  p_col = p_col + 4.
  LOOP AT t_fieldcat INTO fs_fieldcat WHERE tabname = 'GT_ITEM'.
    IF fs_fieldcat-col_pos EQ p_col.
      fs_fieldcat-emphasize = 'C600'.
      w_fieldname = fs_fieldcat-fieldname.
      IF p_row IS INITIAL AND p_col GT 0.  " <---- paint only column if p_row is empty
        MODIFY t_fieldcat FROM fs_fieldcat TRANSPORTING emphasize.
      ENDIF.
    ENDIF.
  ENDLOOP.
  fs_cell-fieldname = w_fieldname .
  fs_cell-color-col = 6.
  fs_cell-nokeycol = 'X'.
  APPEND fs_cell TO t_spfli-cell.
  IF p_row IS NOT INITIAL AND p_col IS NOT INITIAL.  " <---- paint a cell
    MODIFY t_spfli INDEX p_row TRANSPORTING cell.
  ENDIF.
  fs_layout-info_fieldname = 'COLOR'.
  fs_layout-coltab_fieldname = 'CELL'.
  fs_layout-f2code = '&ETA'.
  gs_keyinfo-header01 = 'KEYLN'.
  gs_keyinfo-item01   = 'KEYLN'.
  LOOP AT t_spfli INTO gt_item.
    gt_item-keyln = 1.
    gt_item-lineno = gt_item-lineno + 1.
    APPEND gt_item.
  ENDLOOP.
  READ TABLE t_spfli INDEX 1 INTO gt_header.
  gt_header-keyln = 1.
  gt_header-lineno = 0.
  APPEND gt_header.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      is_layout                      = fs_layout
      it_fieldcat                    = t_fieldcat
      i_tabname_header               = 'GT_HEADER'
      i_tabname_item                 = 'GT_ITEM'
      is_keyinfo                     = gs_keyinfo
    TABLES
      t_outtab_header                = gt_header
      t_outtab_item                  = gt_item
EXCEPTIONS
  PROGRAM_ERROR                  = 1
  OTHERS                         = 2
  IF sy-subrc = 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.