How to color a line in ALV Dispaly

Question

Hi Abaper,
As of my requirement i want to display output of the report for certain lines in a color iam using ALV method,
Plz help me ASAP
answer will be reward.
Thanks in advance
hema

Answer 1

Hi Hema..
this is The code for Applying the colors For Lines or Cells also..
report  yacpr0007.
This must be included in order to create the fieldcatalog.
type-pools: slis.
parameters: p_dummy type c.
types: begin of ty_data,
         select type c,
         f1 type i,
         f2 type i,
         f3 type i,
         color_line(4) type c, " Line color
         color_cell type lvc_t_scol, " Cell color
       end of ty_data.
constants: c_true  type boolean_flg value 'X',
           c_false type boolean_flg value space.
data: i_data type table of ty_data,
      i_field_cat type slis_t_fieldcat_alv,
      s_layout    type slis_layout_alv.
start-of-selection.
  perform f_create_field_cat.
  perform f_set_layout.
  perform f_create_data.
end-of-selection.
  perform f_display_grid.
*&      @FORMS
*&      Form  f_create_data
Create some sample data.
form f_create_data.
  data: lw_data type ty_data,
        lw_color_cell like line of lw_data-color_cell.
  do 15 times.
    clear lw_data.
    lw_data-f1 = sy-index.
    case sy-index.
      when 3.
**/ Set the row or cell to color
        lw_data-color_line = 'C410'.
      when 8.
        lw_color_cell-color-col = 6.
        lw_color_cell-fname = 'F1'.
        append lw_color_cell to lw_data-color_cell. "/ .
    endcase.
    lw_data-f2 = sy-index * 2.
    lw_data-f3 = lw_data-f1 + lw_data-f2.
    append lw_data to i_data.
  enddo.
endform.                    "f_create_data
*&      Form  f_create_field_cat
  Create the fieldcatalog.  This needs to contain a minimum of
  the names of the fields you wish to display.  However there are
  numerous other things which can be added such as position, colour etc.
form f_create_field_cat.
**/ Add data to the field catalog
  perform f_append_row using: 'F1' 'field one' 3,
                              'F2' 'field two' 2,
                              'F3' 'field three' 1.  "/ .
endform.                    "f_create_field_cat
*&      Form  f_append_row
Append a single row to the field catalog.
     -->L_NAME     The name of the field to be added.
     -->L_DESC     The description for the column heading.
     -->L_POS      The column number for the field.
form f_append_row using pv_name pv_desc pv_pos.
  data: lw_field_cat like line of i_field_cat.
**/ Append the field catalog record.
  lw_field_cat-fieldname = pv_name.
  lw_field_cat-seltext_l = pv_desc.
  lw_field_cat-col_pos = pv_pos.
  append lw_field_cat to i_field_cat. "/ .
endform.                    "f_append_row
*&      Form  f_set_layout
Set the layout including the field names used to indicate the
cells or rows should be coloured.
form f_set_layout.
  s_layout-colwidth_optimize = space.
  s_layout-no_colhead = space.
  s_layout-zebra = space.
  s_layout-no_vline = space.
**/ Field that identify color line in internal table
  s_layout-info_fieldname = 'COLOR_LINE'.
Field that identify cell color in inetrnal table
  s_layout-coltab_fieldname = 'COLOR_CELL'. "/ .
endform.                    "f_create_layout
*&      Form  f_display_grid
Call the function to display the grid.
form f_display_grid.
**/ You need to pass in a minimum of the fieldcatalog and the table of data
  call function 'REUSE_ALV_GRID_DISPLAY'
exporting
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
  I_CALLBACK_PROGRAM                = ' '
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
   is_layout                         = s_layout
**/ the field catalog.  Tells SAP what to display
   it_fieldcat                       = i_field_cat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         =
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  I_HTML_HEIGHT_TOP                 =
  I_HTML_HEIGHT_END                 =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
**/ The table of data and exceptions
    tables
      t_outtab                          = i_data
   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.
endform.                    "f_display_grid
<b>reward if Helpful</b>