I want to display specific line to be color in alvlist how

Question

i want to display specific line to be color in alvlist
i write the code as follows here document type is initial. then that line is to be
appeared as color line but problem is initially it is appeared correct later i moved to next previous screens  error lines are to be colored where i have to clear 
  loop at it_doclist where blart eq space.
      gt_layout-info_fieldname  = 'COLOR_LINE'.
      it_doclist-color_line = 'C600'.
      modify it_doclist .
      clear:it_doclist.
  endloop.
please help me exactly
Thanks
Ramana reddy

Answer 1

u r requiremnt is not clear...but any how check this code....
it has a form for assigning colors....
rewardif useful
REPORT zppb001_prd_posting_upload
       NO STANDARD PAGE HEADING LINE-SIZE 255
       MESSAGE-ID zpp.
INCLUDE bdcrecx1.
TYPE-POOLS  :slis.
DATA:   wk_success(5) TYPE c,     "To store the successfull Hits
        wk_failure(5) TYPE c,     "To store the failed Hits
        l_mstring(600),           "To store Message texts
        t_date TYPE zservice_date,"To store Uploaded Date
        wk_lines(5) TYPE c,       "To store No of Records
        lines(5) TYPE c,          "To store No of Records
        wk_len(150) TYPE c,       "To store File path
        wk_alp TYPE i,            "To store path length
        lent TYPE i,              "To store path length
        b(4).                     "To store File extension
DATA:   alvfld TYPE slis_t_fieldcat_alv WITH HEADER LINE,
        v_events TYPE slis_t_event WITH HEADER LINE,
        wk_events LIKE LINE OF v_events,
        it_list_comments TYPE slis_t_listheader,
        wk_list_comments LIKE LINE OF it_list_comments,
        wk_layout TYPE slis_layout_alv.
CONSTANTS: c_formname_top_of_page TYPE slis_formname
                               VALUE 'F_TOP_OF_PAGE'.
--TO STORE FINAL DATA TO BE POSTED--
Generated data section with specific formatting - DO NOT CHANGE  ***
DATA: BEGIN OF record OCCURS 0,
        budat_002(010),
        bktxt_004(025),
        matnr_005(018),
        werks_006(004),
        alort_007(004),
        erfmg_008(017),
      END OF record.
End generated data section ***
DATA: BEGIN OF messages OCCURS 0,       "TO STORE FINAL STATUS DISPLAY
       budat_002(010),
       bktxt_004(025),
       matnr_005(018),
       maktx TYPE makt-maktx,
       werks_006(004),
       alort_007(004),
       erfmg_008(017),
       msg_e(400),
       msg_s(600),
       msgtyp TYPE c,
       line_color(4),
      END OF messages.
DATA: BEGIN OF st_record1 ,
       matnr_005(018),
       werks_006(004),
       budat_002(010),
       bktxt_004(025),
       erfmg_007(017),
       erfmg_008(017),
       alort_007(004),
      END OF st_record1.
DEFINE alv_macro.
  move : &1 to alvfld-col_pos,
         &2 to alvfld-fieldname,
         &3 to alvfld-seltext_m.
  if &2 = 'MATNR_005' or &2 = 'MAKTX'.
    alvfld-fix_column = 'X'.
  endif.
  append alvfld.clear alvfld.
END-OF-DEFINITION.
DATA : record1 LIKE TABLE OF st_record1 WITH HEADER LINE,
       it_excel LIKE TABLE OF alsmex_tabline WITH HEADER LINE,
       messtab1 LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE,
       it_acc LIKE TABLE OF record WITH HEADER LINE,
       it_rej LIKE TABLE OF record WITH HEADER LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
PARAMETERS: p_file TYPE localfile OBLIGATORY .
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      static    = 'X'
    CHANGING
      file_name = p_file.
AT SELECTION-SCREEN ON p_file.
  wk_len = p_file.
  CONDENSE wk_len NO-GAPS.
  lent = STRLEN( wk_len ).
  wk_alp = lent - 4.
  b = wk_len+wk_alp(lent).
  IF ( b NE '.txt' ) AND ( b NE '.xls' ).
    MESSAGE e939.
    CLEAR p_file.
    STOP.
  ENDIF.
START-OF-SELECTION.
  PERFORM upload_fun.
  PERFORM open_group.
  PERFORM fill_bdc_table.
  PERFORM close_group.
  PERFORM assign_colors.
  PERFORM f_event_build.
  SORT messages BY matnr_005 ASCENDING.
  PERFORM assign_columns.
  PERFORM count.
  IF ctu = 'X'.
    PERFORM alv.
  ENDIF.
  FREE:messages,messtab1,record1.
END-OF-SELECTION.
--FORM UPLOAD_FUN--
FORM upload_fun.
REFRESH: record1, it_acc, it_rej, record, messages, messtab1, it_excel.
  PERFORM fetch_from_flat_file.
  CLEAR it_excel.
  DESCRIBE TABLE it_excel.
  IF sy-tfill = 0.
    MESSAGE i937. STOP.
  ENDIF.
  LOOP AT it_excel.
    CASE it_excel-col.
      WHEN '0001'. MOVE: it_excel-value TO record1-matnr_005.
      WHEN '0002'. MOVE: it_excel-value TO record1-werks_006.
      WHEN '0003'. MOVE: it_excel-value TO record1-budat_002.
      WHEN '0004'. MOVE: it_excel-value TO record1-bktxt_004.
      WHEN '0005'. MOVE: it_excel-value TO record1-erfmg_007.
      WHEN '0006'. MOVE: it_excel-value TO record1-erfmg_008.
      WHEN '0007'. MOVE: it_excel-value TO record1-alort_007.
    ENDCASE.
    AT END OF row.
      APPEND record1. CLEAR record1.
    ENDAT.
  ENDLOOP.
  DELETE record1 WHERE matnr_005 EQ ' '.
--DO NOT UPLOAD WHERE PRD QTY = 0--
  DELETE record1 WHERE ( erfmg_007 = 0 OR erfmg_007 = ' ' )
                  AND  ( erfmg_008 = 0 OR erfmg_008 = ' ' ).
  DESCRIBE TABLE record1[].
  IF sy-tfill > 0.
--MOVE ACCEPTED QTY AND FETCH THE RESPECTIVE STGLOC-**
    LOOP AT record1 WHERE erfmg_007 NE 0 AND erfmg_007 NE ' '.
      MOVE:    record1-budat_002 TO it_acc-budat_002,
               record1-bktxt_004 TO it_acc-bktxt_004,
               record1-matnr_005 TO it_acc-matnr_005,
               record1-werks_006 TO it_acc-werks_006,
               record1-erfmg_007 TO it_acc-erfmg_008.
      APPEND it_acc. CLEAR: it_acc,record1.
    ENDLOOP.
--MOVE ELPRO FOR THE ACCEPTED ENTRIES--
    LOOP AT it_acc.
      SELECT SINGLE elpro INTO it_acc-alort_007
                                        FROM mkal CLIENT SPECIFIED
                                        WHERE mandt = sy-mandt
                                        AND matnr = it_acc-matnr_005
                                        AND werks = it_acc-werks_006.
      MODIFY it_acc TRANSPORTING alort_007. CLEAR: it_acc.
    ENDLOOP.
--MOVE PRD QTY FOR REJECTED QTY--
    LOOP AT record1 WHERE erfmg_008 NE 0 AND erfmg_008 NE ' '.
      MOVE: record1-budat_002 TO it_rej-budat_002,
            record1-bktxt_004 TO it_rej-bktxt_004,
            record1-matnr_005 TO it_rej-matnr_005,
            record1-werks_006 TO it_rej-werks_006,
            record1-erfmg_008 TO it_rej-erfmg_008,
            record1-alort_007 TO it_rej-alort_007.
      APPEND it_rej. CLEAR: it_rej, record1.
    ENDLOOP.
--MOVE ACCEPTED AND REJECTED READINGS TO FINAL TABLE
    APPEND LINES OF it_acc TO record. APPEND LINES OF it_rej TO record.
    FREE : it_rej, it_acc, record1.
  ELSE.
    MESSAGE i937.
    STOP.
  ENDIF.
ENDFORM.                    " UPLOAD_FUN
--FORM fill_bdc_table--
FORM fill_bdc_table.
  IF NOT record[] IS INITIAL.
    LOOP AT record.
      PERFORM bdc_dynpro USING 'SAPLBARM' '0800'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'RM61B-BKTXT'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=ISTDA'.
      PERFORM bdc_field  USING 'RM61B-BUDAT' record-budat_002.
      PERFORM bdc_field  USING 'RM61B-BKTXT' record-bktxt_004.
      PERFORM bdc_field  USING 'RM61B-MATNR' record-matnr_005.
      PERFORM bdc_field  USING 'RM61B-WERKS' record-werks_006.
      PERFORM bdc_field  USING 'RM61B-ALORT' record-alort_007.
      PERFORM bdc_field  USING 'RM61B-ERFMG' record-erfmg_008.
      PERFORM bdc_dynpro USING 'SAPLCOWB' '0130'.
      PERFORM bdc_field  USING 'BDC_OKCODE' '=WEIT'.
      PERFORM bdc_field  USING 'BDC_CURSOR' 'G_COWB_HEADER-MNGTXT'.
      PERFORM bdc_transaction USING 'MFBF'.
      CLEAR messtab.
      messtab1[] = messtab[].
      LOOP AT messtab1 WHERE msgtyp = 'S' OR msgtyp = 'E'.
        SELECT SINGLE * FROM t100 WHERE sprsl = messtab1-msgspra
                                  AND   arbgb = messtab1-msgid
                                  AND   msgnr = messtab1-msgnr.
        IF sy-subrc = 0.
          l_mstring = t100-text.
          PERFORM store_messages.
          CLEAR l_mstring.
        ENDIF.
      ENDLOOP.
      MOVE-CORRESPONDING record TO messages.
     SELECT SINGLE maktx INTO messages-maktx FROM makt CLIENT SPECIFIED
                                             WHERE mandt = sy-mandt
                                          AND matnr = messages-matnr_005
                                          AND spras = 'EN'.
      APPEND messages.
      CLEAR: messages, messtab1. REFRESH messtab1.
    ENDLOOP.
  ENDIF.
ENDFORM.                    "fill_bdc_table
--FORM assign_columns--
FORM assign_columns .
  REFRESH alvfld.
  alv_macro '1' 'MATNR_005' 'PART NO'.
  alv_macro '2' 'MAKTX' 'DESCRIPTION'.
  alv_macro '3' 'WERKS_006' 'PLANT'.
  alv_macro '4' 'BUDAT_002' 'POSTING DATE'.
  alv_macro '5' 'BKTXT_004' 'SHIFT'.
  alv_macro '6' 'ERFMG_008' 'QUANTITY'.
  alv_macro '7' 'ALORT_007' 'STGLOC'.
  alv_macro '8' 'MSG_E' 'ERRORS DUE TO'.
  alv_macro '9' 'MSG_S' 'STATUS'.
ENDFORM.                    " assign_columns
--FORM f_event_build--
FORM f_event_build .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = v_events[].
  READ TABLE v_events WITH KEY name = slis_ev_top_of_page
                                           INTO wk_events.
  wk_layout-info_fieldname = 'LINE_COLOR'.
  wk_layout-colwidth_optimize    = 'X'.
  IF sy-subrc = 0.
    MOVE c_formname_top_of_page TO wk_events-form.
    MODIFY v_events FROM wk_events INDEX sy-tabix.
  ENDIF.
ENDFORM.                    " f_event_build
--FORM f_top_of_page--
FORM f_top_of_page.
  WRITE sy-datum TO t_date.
  CLEAR: it_list_comments[].
  wk_list_comments-typ  = 'H'. "H=Header, S=Selection, A=Action
  wk_list_comments-key  = ''.
CONCATENATE 'UPLOADED STATUS FOR PRODUCTION POSTING ON - ' t_date INTO
                             wk_list_comments-info SEPARATED BY space.
  APPEND wk_list_comments TO it_list_comments.
  CLEAR wk_list_comments.
  DESCRIBE TABLE messages LINES wk_lines.
  lines = wk_lines.
  wk_list_comments-typ  = 'S'. "H=Header, S=Selection, A=Action
  wk_list_comments-key  = ''.
  CONCATENATE 'Total No of Hits:' lines INTO wk_list_comments-info
                                                  SEPARATED BY space.
  APPEND wk_list_comments TO it_list_comments.
  CLEAR wk_list_comments.
  wk_list_comments-typ  = 'S'. "H=Header, S=Selection, A=Action
  wk_list_comments-key  = ''.
  CONCATENATE 'Successfull Hits:' wk_success INTO
            wk_list_comments-info SEPARATED BY space.
  APPEND wk_list_comments TO it_list_comments.
  CLEAR wk_list_comments.
  wk_list_comments-typ  = 'S'. "H=Header, S=Selection, A=Action
  wk_list_comments-key  = ''.
  CONCATENATE '    Failed Hits:' '   ' wk_failure INTO
                          wk_list_comments-info
                          SEPARATED BY space.
  APPEND wk_list_comments TO it_list_comments.
  CLEAR wk_list_comments.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'ENJOYSAP_LOGO'
      it_list_commentary = it_list_comments.
ENDFORM.                    "F_TOP_OF_PAGE
--FORM assign_colors--
FORM assign_colors .
  LOOP AT messages.
    CASE messages-msgtyp.
      WHEN 'E'.
        messages-line_color = 'C601'.
      WHEN 'S'.
        messages-line_color = 'C501'.
    ENDCASE.
    MODIFY messages TRANSPORTING line_color.
  ENDLOOP.
ENDFORM.                    " assign_colors
--FORM COUNT--
FORM count .
  CLEAR: wk_failure, wk_success.
  LOOP AT messages.
    CASE messages-msgtyp.
      WHEN 'E'.
        ADD 1 TO wk_failure.
      WHEN 'S'.
        ADD 1 TO wk_success.
    ENDCASE.
  ENDLOOP.
ENDFORM.                    " COUNT
--FORM ALV--
FORM alv .
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = wk_layout
      it_fieldcat        = alvfld[]
      it_events          = v_events[]
    TABLES
      t_outtab           = messages
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    " ALV
--FETCH_FROM_FLAT_FILE--
FORM fetch_from_flat_file .
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1 "From 1st Column
      i_begin_row             = 2 "From 2nd row
      i_end_col               = 7 "Till 7th Column
      i_end_row               = 65000 "Till Row
    TABLES
      intern                  = it_excel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
ENDFORM.                    " FETCH_FROM_FLAT_FILE
--FORM STORE_MESSAGES--
FORM store_messages.
  IF l_mstring CS '&1'.
    REPLACE '&1' WITH messtab1-msgv1 INTO l_mstring.
    REPLACE '&2' WITH messtab1-msgv2 INTO l_mstring.
    REPLACE '&3' WITH messtab1-msgv3 INTO l_mstring.
    REPLACE '&4' WITH messtab1-msgv4 INTO l_mstring.
  ELSE.
    REPLACE '&' WITH messtab1-msgv1 INTO l_mstring.
    REPLACE '&' WITH messtab1-msgv2 INTO l_mstring.
    REPLACE '&' WITH messtab1-msgv3 INTO l_mstring.
    REPLACE '&' WITH messtab1-msgv4 INTO l_mstring.
  ENDIF.
  CONDENSE l_mstring.
  IF messtab1-msgtyp = 'E'.
CONCATENATE messages-msg_s l_mstring INTO l_mstring SEPARATED BY space.
    MOVE l_mstring TO messages-msg_e.
    MOVE 'E' TO messages-msgtyp.
    MOVE 'Document Not Posted' TO messages-msg_s.
  ELSEIF messtab1-msgtyp = 'S'.
CONCATENATE messages-msg_s l_mstring INTO l_mstring SEPARATED BY space.
    MOVE l_mstring TO messages-msg_s.
    MOVE 'S' TO messages-msgtyp.
  ENDIF.
ENDFORM.                    " store_messages