To add serial number column

Question

Dear Experts,
                    I herewith attachedc my  codings i waht to add serial number how to do that i have done something but it is giving all zero values.,.,.,
*& Report  ZAPPRAISAL_LAG
REPORT  ZAPPRAISAL.
*Declaration of type-pools
TYPE-POOLS SLIS.
*Declaration of tables
TABLES : PA0025, PA0001.
DATA : LV_VALUE TYPE I.
*Declaration of work area
DATA: BEGIN OF WA_PA0025,
        PERNR TYPE PA0025-PERNR,
        ENDDA TYPE PA0025-ENDDA,
        BEGDA TYPE PA0025-BEGDA,
        AEDTM TYPE PA0025-AEDTM,
        BWNAM TYPE PA0025-BWNAM,
        DAT25 TYPE PA0025-DAT25,
        GRPNR TYPE PA0025-GRPNR,
        ENAME TYPE EMNAM,
        BUKRS TYPE PA0001-BUKRS,
        number type i,
      END OF WA_PA0025,
       WA_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
       wa_sort  TYPE SLIS_SORTINFO_ALV,
       WA_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE.
DATA: row_number type i.
*Declaration of internal tables
DATA : IT_PA0025 LIKE TABLE OF WA_PA0025,
       IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
       I_SORT  TYPE STANDARD TABLE OF SLIS_SORTINFO_ALV,
       IT_EVENTS TYPE SLIS_T_EVENT.
*selection screen
SELECTION-SCREEN BEGIN OF BLOCK FF WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS S_DATE FOR PA0025-DAT25.
parameters : p_date type pa0025-dat25.
parameters : p_date1 type pa0025-dat25.
SELECT-OPTIONS S_BUKRS FOR PA0001-BUKRS NO INTERVALS.
SELECTION-SCREEN END OF BLOCK FF.
*ALV EVENTS
WA_EVENTS-FORM    = 'HEADER'.
WA_EVENTS-NAME    = 'TOP_OF_PAGE'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR : WA_EVENTS.
*start-of-selection event.
START-OF-SELECTION.
  SELECT DISTINCT
        A~PERNR
        A~ENDDA
        A~BEGDA
        A~AEDTM
        A~BWNAM
        A~DAT25
        A~GRPNR
        B~ENAME
        B~BUKRS
        INTO TABLE IT_PA0025
        FROM PA0025 AS A
        INNER JOIN PA0001 AS B
        ON BPERNR = APERNR
        WHERE A~DAT25
       between p_date and p_date1
       AND B~BUKRS IN S_BUKRS.
  SORT IT_PA0025 by pernr.
  DESCRIBE TABLE IT_PA0025 LINES LV_VALUE.
loop at it_pa0025 into wa_pa0025.
row_number = row_number + 1 .
WA_PA0025-number   =  row_number.
*append wa_pa0025 to IT_PA0025.
endloop.
  perform fcat using '1'  'NUMBER' 'S.no' '12' '' 'C410' 'C'.
  PERFORM FCAT USING '2'  'PERNR' 'Personnel number'    '16'  'X' 'C410' 'C'.
  PERFORM FCAT USING '3'  'ENAME' 'Employee name'       '26'  ''  '' ''.
  PERFORM FCAT USING '4'  'BUKRS' 'Company code'        '15'  ''  '' 'C'.
  PERFORM FCAT USING '5'  'BEGDA' 'Start date'          '11'  ''  '' ''.
  PERFORM FCAT USING '6'  'ENDDA' 'End date'            '10'  ''  '' ''.
  PERFORM FCAT USING '7'  'AEDTM' 'Changed date'        '13'  ''  '' ''.
  PERFORM FCAT USING '8'  'BWNAM' 'Appraiser'           '18'  ''  '' ''.
  PERFORM FCAT USING '9'  'DAT25' 'Appraised date'      '15'  ''  '' ''.
CLEAR wa_sort.
wa_sort-fieldname = 'PERNR'.
wa_sort-up = 'X'.
APPEND wa_sort TO i_sort.
  CLEAR wa_sort.
  wa_sort-FIELDNAME = 'DAT25'.
  wa_sort-UP = 'X'.
  APPEND wa_sort TO I_SORT.
  CLEAR wa_sort.
  wa_sort-FIELDNAME = 'BUKRS'.
  wa_sort-UP = 'X'.
  APPEND wa_sort TO I_SORT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-CPROG
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IT_SORT                 = I_SORT
      I_GRID_TITLE            = 'Report'
      IT_FIELDCAT             = IT_FCAT
      IT_EVENTS               = IT_EVENTS
    TABLES
      T_OUTTAB                = IT_PA0025.
*&      Form  USER_COMMAND
      text
-->  p1        text
<--  p2        text
FORM USER_COMMAND USING U_UCOMM TYPE SY-UCOMM
                        US_SELF_FIELD TYPE SLIS_SELFIELD.
  CASE U_UCOMM.
    WHEN '&IC1'.
      READ TABLE IT_PA0025 INTO WA_PA0025 INDEX US_SELF_FIELD-TABINDEX.
      CASE US_SELF_FIELD-FIELDNAME.
        WHEN 'PERNR'.
          SET PARAMETER ID : 'PER' FIELD WA_PA0025-PERNR.
          CALL TRANSACTION 'PA30'.
      ENDCASE.
  ENDCASE.
ENDFORM.                    " USER_COMMAND
FORM FCAT  USING    FP_COL_POS
                    FP_FIELDNAME
                    FP_SELTXT_M
                    FP_OUTPOUTLEN
                    FP_HOTSPOT
                    FP_EMPHASIZE
                    FP_JUST.
  WA_FCAT-COL_POS    =  FP_COL_POS.
  WA_FCAT-FIELDNAME  = FP_FIELDNAME.
  WA_FCAT-SELTEXT_M  = FP_SELTXT_M.
  WA_FCAT-OUTPUTLEN  = FP_OUTPOUTLEN.
  WA_FCAT-HOTSPOT    = FP_HOTSPOT.
  WA_FCAT-EMPHASIZE  = FP_EMPHASIZE.
  WA_FCAT-JUST       = FP_JUST.
  APPEND WA_FCAT TO IT_FCAT.
  CLEAR : WA_FCAT.
ENDFORM.                    " FCAT
*&      Form  HEADER
      text
-->  p1        text
<--  p2        text
FORM HEADER .                                               "#EC CALLED
  DATA :     IT_HEADER TYPE SLIS_T_LISTHEADER,
             WA_HEADER LIKE LINE OF IT_HEADER.
  WA_HEADER-TYP  = 'H'.
  WA_HEADER-INFO = TEXT-006.
  APPEND WA_HEADER TO IT_HEADER.
  CLEAR WA_HEADER.
  WA_HEADER-TYP  = 'S'.
  WA_HEADER-KEY  = TEXT-007.
  CONCATENATE  SY-DATUM+6(2) '.'
               SY-DATUM+4(2) '.'
               SY-DATUM(4) INTO WA_HEADER-INFO.   "Current date
  APPEND WA_HEADER TO IT_HEADER.
  CLEAR WA_HEADER.
  WA_HEADER-TYP  = 'S'.
  WA_HEADER-KEY = TEXT-012.
  MOVE LV_VALUE TO WA_HEADER-INFO.
  APPEND WA_HEADER TO IT_HEADER.
  CLEAR WA_HEADER.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = IT_HEADER.
  CLEAR : IT_HEADER[], WA_HEADER.
ENDFORM.                    " HEADER
Thanks and Regards,
Thirukumaran. R

Answer 1

hi
LOOP AT it_pa0025 INTO wa_pa0025.
    row_number = row_number + 1 .
    wa_pa0025-number = row_number.
" Add this statement here
    MODIFY it_pa0025 INDEX sy-tabix FROM wa_pa0025 TRANSPORTING number.
  ENDLOOP.
Thanks & Regards