How to do coloring for single record in alv grid display?
To give color for single record add one more field to your output internal table.
Let say you have 
 
itab_out with structure as
 
TYPES : BEGIN OF TY_COLS,
         YCONS(50)     TYPE C,
         YMON01(10)    TYPE C,
         YMON02(10)    TYPE C,
         YMON03(10)    TYPE C, 
         YCOL(4),  " this field to be added ...
END OF TY_COLS. 
DATA: WA_COLS TYPE TY_COLS,
              TA_COLS TYPE TABLE OF TY_COLS.
 
FORM BUILD_LAYOUT.
  TA_LAYOUT1-ZEBRA             = 'X'.
  TA_LAYOUT1-INFO_FIELDNAME    = 'YCOL'."this is field to beadded
  TA_LAYOUT1-COLWIDTH_OPTIMIZE = 'X'.
  TA_LAYOUT1-BOX_TABNAME       = 'TA_COLS '.
ENDFORM.    
 
and then 
add this number to that row where you want color....that's it...
 
WA_COLS-YCONS = TEXT-017.
WA_COLS-YCOL   = 'C400'.
APPEND WA_COLS TO TA_COLS. 
 
*-- End of Program
Sample Colour Program
*&---------------------------------------------------------------------*
*& Report  ZGS_ALV_COLOUR
*&---------------------------------------------------------------------*
REPORT  ZBGR_ALV_COLOR.
TYPE-POOLS:SLIS.
DATA:BEGIN OF ITAB OCCURS 0,
     VBELN LIKE VBAP-VBELN,
     POSNR LIKE VBAP-POSNR,
     MATNR LIKE VBAP-MATNR,
     NETWR LIKE VBAP-NETWR,
     COLOR(4),
     END OF ITAB.
DATA:FCAT TYPE SLIS_T_FIELDCAT_ALv.
*     CAT TYPE SLIS_FIELDCAT_ALV.
DATA:LAYOUT TYPE SLIS_LAYOUT_ALV,
      SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.
START-OF-SELECTION.
SELECT VBELN POSNR MATNR NETWR FROM VBAP INTO TABLE ITAB UP TO 30 ROWS.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
   I_PROGRAM_NAME               = SY-CPROG
   I_INTERNAL_TABNAME           = 'ITAB'
*   I_STRUCTURE_NAME             =
   I_CLIENT_NEVER_DISPLAY       = 'X'
   I_INCLNAME                   = SY-CPROG
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
  CHANGING
    CT_FIELDCAT                  = FCAT
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 2
*   OTHERS                       = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SORT-SPOS = 1.
SORT-FIELDNAME = 'NETWR'.
SORT-TABNAME = 'ITAB'.
SORT-UP = 'X'.
APPEND SORT.
CLEAR SORT.
LOOP AT ITAB.
IF ITAB-NETWR < 3000.
ITAB-COLOR = 'C615'.
MODIFY ITAB INDEX SY-TABIX.
ELSEIF ITAB-NETWR > 3000 AND ITAB-NETWR < 8000.
ITAB-COLOR = 'C501'.
MODIFY ITAB INDEX SY-TABIX.
ELSE.
ITAB-COLOR = 'C710'.
MODIFY ITAB INDEX SY-TABIX.
ENDIF.
ENDLOOP.
LAYOUT-INFO_FIELDNAME = 'COLOR'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = 'SY-CPROG'
*   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                         = LAYOUT
   IT_FIELDCAT                       = FCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
   IT_SORT                           = 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
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    T_OUTTAB                          = ITAB
* 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.
*-- End of Program



Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP MM SD Consultant
Contact : serkurumsal@yandex.com