Getting alternative colors in output list

Question

Hi Frnds,
              I have to provide alternative colors for each row for my report which i m unable to do.
Actually i am getting colors in my header but i need alternative colors for each row in my output.
below i am providing my code.
<code>
REPORT  ZVVK_DOWNLOAD.
TYPE-POOLS RSDS.
DATA : IT_TABLEKEY LIKE COND_FLDS OCCURS 0 WITH HEADER LINE,
       IT_TABLEDAT LIKE COND_FLDS OCCURS 0 WITH HEADER LINE,
       IT_PRICING  LIKE COND_RECS OCCURS 0 WITH HEADER LINE,
       IT_RANGE    TYPE RSDS_FRANGE_T,
       IT_KNUMH    LIKE COND_KNUMH OCCURS 0 WITH HEADER LINE .
DATA : IT_KONH                  LIKE KONHDB OCCURS 0 WITH HEADER LINE,
       IT_KONP                  LIKE KONPDB OCCURS 0 WITH HEADER LINE,
       IT_KONM                  LIKE COND_KONM OCCURS 0 WITH HEADER LINE,
       IT_KONW                  LIKE COND_KONW OCCURS 0 WITH HEADER LINE,
       IT_BAPI_COND_RECS        LIKE BAPICONDCT   OCCURS 0 WITH HEADER LINE,
       IT_BAPI_KEY_FIELDS       LIKE BAPICONDDD   OCCURS 0 WITH HEADER LINE,
       IT_BAPI_DATA_FIELDS      LIKE BAPICONDDD   OCCURS 0 WITH HEADER LINE,
       IT_COND_HEADER           LIKE BAPICONDHD OCCURS 0 WITH HEADER LINE,
       IT_COND_ITEM             LIKE BAPICONDIT OCCURS 0 WITH HEADER LINE,
       IT_COND_QUANTITY_SCALE   LIKE BAPICONDQS OCCURS 0 WITH HEADER LINE,
       IT_COND_VALUE_SCALE      LIKE BAPICONDVS OCCURS 0 WITH HEADER LINE,
       IT_T682I                 LIKE T682I      OCCURS 0 WITH HEADER LINE.
DATA : WA_RANGES LIKE LINE OF IT_RANGE,
       WA_SELOPT LIKE LINE OF WA_RANGES-SELOPT_T.
*Data declarations for displaying downloaded file into application server in output list
TYPES: BEGIN OF T_VARINFO,
          FLAG TYPE C,
          OLENGTH TYPE X,
          LINE LIKE RALDB-INFOLINE,
        END OF T_VARINFO.
DATA:TABLES TYPE TRDIR-NAME OCCURS 0 WITH HEADER LINE ,
     INFOTAB TYPE T_VARINFO OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS SO_DATE FOR SY-DATUM.
PARAMETERS : P_CONTAB TYPE T681-KOTABNR   OBLIGATORY,
            FILENAME(128) DEFAULT '/usr/sap/tmp/' LOWER CASE.
*start-of-selection
START-OF-SELECTION.
  IF NOT SO_DATE[] IS INITIAL.
    WA_RANGES-FIELDNAME = 'DATBI'.
    LOOP AT SO_DATE.
      MOVE-CORRESPONDING SO_DATE TO WA_SELOPT.
      APPEND WA_SELOPT TO WA_RANGES-SELOPT_T.
    ENDLOOP.
    APPEND WA_RANGES TO IT_RANGE.
  ENDIF.
*--For Datarevin for condition table
  CALL FUNCTION 'SELECT_RECORDS_FROM_COND_TABLE'
    EXPORTING
      I_KVEWE                       = 'A'
      I_KOTABNR                     = P_CONTAB
      I_BLOCKSIZE                   = 0
      I_RANGES                      = IT_RANGE
    TABLES
      T_COND_TABLES_KEY_FIELDS      = IT_TABLEKEY
      T_COND_TABLES_DATA_FIELDS     = IT_TABLEDAT
      T_COND_RECORD_PRICING         = IT_PRICING
    EXCEPTIONS
      INVALID_USAGE                 = 1
      INVALID_TABLE                 = 2
      DIFFERENT_PARAMETERS_IN_BLOCK = 3
      LASTBLOCK_ALREADY_SENT        = 4
      OTHERS                        = 5.
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  SELECT * INTO TABLE IT_T682I
    FROM T682I
    WHERE KOTABNR = P_CONTAB.
  LOOP AT IT_PRICING.
    IT_KNUMH-KNUMH = IT_PRICING-KNUMH.
    APPEND IT_KNUMH.
  ENDLOOP.
  CALL FUNCTION 'SELECT_PRICES_DETAILS'
    TABLES
      T_KNUMH = IT_KNUMH
      T_KONH  = IT_KONH
      T_KONP  = IT_KONP
      T_KONM  = IT_KONM
      T_KONW  = IT_KONW.
  CALL FUNCTION 'CRS_MAP_COND_INTO_BAPISTUCTURE'
    EXPORTING
      I_OPERATION            = '005'
    TABLES
      TI_COND_RECS           = IT_PRICING
      TI_KEY_FIELDS          = IT_TABLEKEY
      TI_DATA_FIELDS         = IT_TABLEDAT
      TI_KONHDB              = IT_KONH
      TI_KONPDB              = IT_KONP
      TI_VKONM               = IT_KONM
      TI_VKONW               = IT_KONW
      TO_BAPI_COND_RECS      = IT_BAPI_COND_RECS
      TO_BAPI_KEY_FIELDS     = IT_BAPI_KEY_FIELDS
      TO_BAPI_DATA_FIELDS    = IT_BAPI_DATA_FIELDS
      TO_COND_HEADER         = IT_COND_HEADER
      TO_COND_ITEM           = IT_COND_ITEM
      TO_COND_QUANTITY_SCALE = IT_COND_QUANTITY_SCALE
      TO_COND_VALUE_SCALE    = IT_COND_VALUE_SCALE.
  IF SY-SUBRC <> 0.
  ENDIF.
For displaying filename and number of records downloaded in application server
  DATA:VAR_INFO TYPE TABLE OF RSVARADMIN WITH HEADER LINE ,
       VAR_NAME TYPE TABLE OF RSVARRANGE WITH HEADER LINE  .
  CALL FUNCTION 'RS_VARIANT_ADMIN_DATA'
    EXPORTING
      CURR_REPORT   = SY-REPID
    TABLES
      VARIANT_INFO  = VAR_INFO
      VARIANT_NAMES = VAR_NAME.
  CALL FUNCTION 'PRINT_SELECTIONS'
    EXPORTING
      MODE      = TABLES
      RNAME     = SY-REPID         "program name
      RVARIANTE = VAR_INFO-VARIANT    "varient name
    TABLES
      INFOTAB   = INFOTAB.
  LOOP AT INFOTAB.
    WRITE / INFOTAB-LINE.
  ENDLOOP.
  WRITE:/1(80) SY-ULINE .
  WRITE:/1 SY-VLINE ,
         3 'The output filename:' COLOR 7,
         49 sy-vline,
         50 'no of records downloaded:' COLOR 6 ,
         80 SY-VLINE.
  WRITE:/1(80) SY-ULINE .
Where used
  PERFORM DATA_DWNLD TABLES IT_T682I USING P_CONTAB 'WHERE_USED' 'DAT' 'xls'.
*IT_BAPI_COND_RECS
  PERFORM DATA_DWNLD TABLES IT_BAPI_COND_RECS USING P_CONTAB 'COND_RECS' 'BIN' 'txt'.
IT_BAPI_KEY_FIELDS
  PERFORM DATA_DWNLD TABLES IT_BAPI_KEY_FIELDS USING P_CONTAB 'KEY_FIELDS' 'ASC' 'txt'.
KEY_FIELDS
  PERFORM DATA_DWNLD TABLES IT_BAPI_KEY_FIELDS USING P_CONTAB 'KEY_FIELDS' 'DAT' 'xls'.
*DATA_FIELDS
  PERFORM DATA_DWNLD TABLES IT_BAPI_DATA_FIELDS USING P_CONTAB 'DATA_FIELDS' 'BIN' 'txt'.
*COND_HEADER
  PERFORM DATA_DWNLD TABLES IT_COND_HEADER USING P_CONTAB 'COND_HEADER' 'BIN' 'txt'.
*COND_ITEM
  PERFORM DATA_DWNLD TABLES IT_COND_ITEM USING P_CONTAB 'COND_ITEM' 'BIN' 'txt'.
*COND_QUANTITY_SCALE
  PERFORM DATA_DWNLD TABLES IT_COND_QUANTITY_SCALE  USING P_CONTAB 'QUANTITY_SCALE' 'BIN' 'txt'.
*COND_VALUE_SCALE
  PERFORM DATA_DWNLD TABLES IT_COND_VALUE_SCALE  USING P_CONTAB 'VALUE_SCALE' 'BIN' 'txt'.
*&      Form  DATA_DWNLD
      text
FORM DATA_DWNLD TABLES P_TAB
                USING  P_CONTAB   TYPE ANY
                       P_TABNAME  TYPE ANY
                       P_FILETYPE TYPE CHAR10
                       P_EXT      TYPE ANY.
  DATA: L_FILE TYPE STRING,
        V_LINES TYPE I .
  DESCRIBE TABLE P_TAB LINES V_LINES.
  CONCATENATE 'ORG' P_CONTAB P_TABNAME
             INTO L_FILE SEPARATED BY '_'.
  CONCATENATE FILENAME L_FILE '.' P_EXT INTO L_FILE.
  CONDENSE L_FILE.
  FIELD-SYMBOLS : <FS_DATA> TYPE ANY.
  OPEN DATASET L_FILE FOR OUTPUT IN BINARY MODE .
  IF SY-SUBRC NE 0.
    EXIT.
  ELSE.
    LOOP AT P_TAB ASSIGNING <FS_DATA>.
      TRANSFER <FS_DATA> TO L_FILE .
    ENDLOOP.
  ENDIF.
  CLOSE DATASET L_FILE.
For displaying filename and number of records downloaded in application server
  WRITE:/1 SY-VLINE ,
         3  L_FILE ,
         49 sy-vline,
         50 v_lines,
         80 SY-VLINE.
  WRITE:/1(80) SY-ULINE .
ENDFORM.                    " DOWNLOAD_FILE
</code>

Answer 1

Hi Satya,
Try this .
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
  from ekpo
  into table it_ekko.
*Populate field with color attributes
loop at it_ekko into wa_ekko.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
          i.e. wa_ekko-line_color = 'C410'
  ld_color = ld_color + 1.
Only 7 colours so need to reset color value
  if ld_color = 8.
    ld_color = 1.
  endif.
  concatenate 'C' ld_color '10' into wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
  modify it_ekko from wa_ekko.
endloop.
endform.                    " DATA_RETRIEVAL
For more info ,
http://www.sapdev.co.uk/reporting/alv/alvgrid_color.htm
Regards,
Chitra