I have a normal report , i need to make it into ALV,

Question

Hi,
i have a normal report and i need to make it into ALV Report in ECC5.0version. when i making it into ALV its giving blank.
can any one help me out to make below code in to ALV report.
REPORT ZSAMPLE line-size 260
                  line-count 65
                  no standard page heading.
====================================================================
TABLES *********************************
====================================================================
tables : bseg,
         bkpf,
         kna1,
         bsid,
         bsad,
         knb1.
data : begin of customer_tab occurs 0,
          kunnr         like kna1-kunnr,
          name1         like kna1-name1,
          flag(1)       type c,
       end of customer_tab.
data : begin of customerdoc_tab occurs 0,
          kunnr         like kna1-kunnr,
          belnr         like bkpf-belnr,
          gjahr         like bkpf-gjahr,
          monat         like bkpf-monat,
       end of customerdoc_tab.
data : begin of doc_tab occurs 0,
          belnr         like bkpf-belnr,
          gjahr         like bkpf-gjahr,
          monat         like bkpf-monat,
       end of doc_tab.
DATA: BEGIN OF BSID_TAB OCCURS 0,
         BUKRS LIKE BSID-BUKRS,
         PRCTR LIKE BSID-PRCTR,
         KUNNR LIKE BSID-KUNNR,
         FLAG(1),
         UMSKZ LIKE BSID-UMSKZ,
         BLART LIKE BSID-BLART,
         BELNR LIKE BSID-BELNR,
         BUZEI LIKE BSID-BUZEI,
         NETDT LIKE BSID-ZFBDT,
         ZFBDT LIKE BSID-ZFBDT,
         BUDAT LIKE BSID-BUDAT,
         BLDAT LIKE BSID-BLDAT,
         BSCHL LIKE BSID-BSCHL,
         DMBTR LIKE BSID-DMBTR,
         SHKZG LIKE BSID-SHKZG,
         ZBD1T LIKE BSID-ZBD1T,
         ZBD2T LIKE BSID-ZBD2T,
         ZBD3T LIKE BSID-ZBD3T,
         REBZG LIKE BSID-REBZG,
         REBZT LIKE BSID-REBZT,
         KOART LIKE BSEG-KOART,
         SK1DT LIKE FAEDE-SK1DT,
         SK2DT LIKE FAEDE-SK2DT,
         DAYSD LIKE SY-TABIX,
      END OF BSID_TAB.
ranges : r_bukrs for bsid-bukrs,
         r_kunnr for kna1-kunnr.
===================================================================
VARIABLES *******************************
===================================================================
data : v_belnr     like  bseg-belnr,
       v_gjahr     like  bkpf-gjahr,
       v_monat     like  bkpf-monat,
       v_ttlc      type  p,
       v_flag(1)   type  c,
       V_COUNT1(4) TYPE  N,
       V_COUNT2(4) TYPE  N,
       V_COUNT3(4) TYPE  N,
       V_COUNT4(4) TYPE  N,
       V_COUNT5(4) TYPE  N,
       V_COUNT6(4) TYPE  N,
       V_COUNT7(4) TYPE  N,
       V_COUNT8(4) TYPE  N,
       V_COUNT9(4) TYPE  N,
       V_COUNT10(4) TYPE  N,
       V_NET1      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 1
       V_NET2      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 2
       V_NET3      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 3
       V_NET4      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 4
       V_NET5      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 5
       V_NET6      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 6
       V_NET7      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 7
       V_NET8      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 8
       V_NET9      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 9
       V_NET10      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 10
       V_NET11      LIKE  BSID-DMBTR, "CALCULATE CUSTOMER AGE 11
       V_NET       LIKE  BSID-DMBTR, "Total Balance of Customer
       V_ttlNET1   LIKE  BSID-DMBTR,
       V_ttlNET2   LIKE  BSID-DMBTR,
       V_ttlNET3   LIKE  BSID-DMBTR,
       V_ttlNET4   LIKE  BSID-DMBTR,
       V_ttlNET5   LIKE  BSID-DMBTR,
       V_ttlNET6   LIKE  BSID-DMBTR,
       V_ttlNET7   LIKE  BSID-DMBTR,
       V_ttlNET8   LIKE  BSID-DMBTR,
       V_ttlNET9   LIKE  BSID-DMBTR,
       V_ttlNET10   LIKE  BSID-DMBTR,
       V_ttlNET11   LIKE  BSID-DMBTR,
       V_ttlNET    LIKE  BSID-DMBTR,
       v_kunnr     like  bseg-kunnr,
       V_BUTXT     like t001-butxt.
===================================================================
SELECTION SCREEN ****************************
===================================================================
selection-screen begin of block b1 with frame title text-001.
parameters :     p_bukrs    like bseg-bukrs obligatory.
select-options : s_kunnr    for  kna1-kunnr,
                 s_BRSCH    for  kna1-BRSCH,
                 s_REGIO    for  kna1-REGIO,
                 s_KTOKD    for  kna1-KTOKD,
                 s_BUSAB    for  knb1-BUSAB.
selection-screen: end of block b1.
selection-screen begin of block b2 with frame title text-003.
PARAMETERS: DAT LIKE SY-DATUM DEFAULT SY-DATUM.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(30) TEXT-002.
SELECTION-SCREEN POSITION POS_LOW.
*PARAMETERS: RASTBIS1 LIKE RFPDO1-ALLGROGR DEFAULT '000'.
*PARAMETERS: RASTBIS2 LIKE RFPDO1-ALLGROGR DEFAULT '030'.
*PARAMETERS: RASTBIS3 LIKE RFPDO1-ALLGROGR DEFAULT '060'.
*PARAMETERS: RASTBIS4 LIKE RFPDO1-ALLGROGR DEFAULT '090'.
*PARAMETERS: RASTBIS5 LIKE RFPDO1-ALLGROGR DEFAULT '120'.
PARAMETERS: RASTBIS1(4) type n DEFAULT '0000'.
PARAMETERS: RASTBIS2(4) type n DEFAULT '0030'.
PARAMETERS: RASTBIS3(4) type n DEFAULT '0060'.
PARAMETERS: RASTBIS4(4) type n DEFAULT '0090'.
PARAMETERS: RASTBIS5(4) type n DEFAULT '0120'.
PARAMETERS: RASTBIS6(4) type n DEFAULT '0150'.
PARAMETERS: RASTBIS7(4) type n DEFAULT '0180'.
PARAMETERS: RASTBIS8(4) type n DEFAULT '0210'.
PARAMETERS: RASTBIS9(4) type n DEFAULT '0240'.
PARAMETERS: RASTBIS0(4) type n DEFAULT '0270'.
SELECTION-SCREEN END OF LINE.
Noted item removed as per FI instruction
PARAMETERS: P_STAND AS CHECKBOX default 'X',
           P_NOTED AS CHECKBOX ,
            P_SPCAL AS CHECKBOX .
selection-screen: end of block b2.
selection-screen begin of block b3 with frame.
PARAMETERS: allgline like RFPDO1-allgline .
Parameters : p_balyes type c radiobutton group grp9 default 'X',
             p_balno  type c radiobutton group grp9.
selection-screen: end of block b3.
Check for the Select option
AT SELECTION-SCREEN.
IF P_STAND = '' AND P_SPCAL = '' .
  MESSAGE E398(00) WITH 'PLEASE CHOOSE AT LEAST ONE G/L INDICATOR!'.
ENDIF.
Check for Company code Authorization
  authority-check object 'F_BKPF_BUK'
     ID 'BUKRS' FIELD p_bukrs
     ID 'ACTVT' FIELD '03'.
  if sy-subrc ne 0.
   message e398(00) with 'You are not Authorized for CC ' p_bukrs.
  Endif.
===================================================================
START-OF-SELECTION ****************************
===================================================================
START-OF-SELECTION.
V_COUNT1 = RASTBIS1 + 1.
V_COUNT2 = RASTBIS2 + 1.
V_COUNT3 = RASTBIS3 + 1.
V_COUNT4 = RASTBIS4 + 1.
V_COUNT5 = RASTBIS5 + 1.
V_COUNT6 = RASTBIS6 + 1.
V_COUNT7 = RASTBIS7 + 1.
V_COUNT8 = RASTBIS8 + 1.
V_COUNT9 = RASTBIS9 + 1.
V_COUNT10 = RASTBIS0 + 1.
perform extract_data.
===================================================================
At line Selection *****************************
===================================================================
at line-selection.
if sy-lilli >= 9 .
   refresh r_bukrs.
   move p_bukrs to r_bukrs-low.
   move 'I' to r_bukrs-sign.
   move 'EQ' to r_bukrs-option.
   append r_bukrs.
   refresh r_kunnr.
   move customer_tab-kunnr to r_kunnr-low.
   move 'I' to r_kunnr-sign.
   move 'EQ' to r_kunnr-option.
   append r_kunnr.
   submit ZFARVR0040  and return
    with p_bukrs = p_bukrs
    with dat     = dat
    with p_stand = p_stand
    with p_spcal = P_SPCAL
    with s_kunnr in r_kunnr.
endif.
===================================================================
Top of Page *******************************
===================================================================
TOP-OF-PAGE.
  SELECT SINGLE BUTXT FROM T001 INTO V_BUTXT
                      WHERE BUKRS = p_BUKRS .
  WRITE:/73'Customers Aging Analysis',140'PAGE NO.',
  SY-PAGNO.
  WRITE:/002 'COMPANY',
         011 P_BUKRS,
         017 V_BUTXT,
         055 allgline centered,
         140 'DATE :',
         150 sy-datum .
  write:/002 'User',
         011 sy-UNAME,
         140 'Time :',
         150 sy-UZEIT.
  SKIP.
  format color col_heading intensified off.
  WRITE:/  SY-ULINE,
              SY-VLINE,002 'Customer',
          012 SY-VLINE,013 'Name',
          043 SY-VLINE,048 'CURRENT',
          061 SY-VLINE,065 'FROM  ',V_COUNT1,
          079 SY-VLINE,083 'FROM  ',V_COUNT2,
          097 SY-VLINE,101 'FROM  ',V_COUNT3,
          115 SY-VLINE,119 'FROM  ',V_COUNT4,
          133 SY-VLINE,137 'FROM  ',V_COUNT5,
          151 SY-VLINE,155 'FROM  ',V_COUNT6,
          169 SY-VLINE,173 'FROM  ',V_COUNT7,
          187 SY-VLINE,191 'FROM  ',V_COUNT8,
          205 SY-VLINE,209 'FROM  ',V_COUNT9,
          223 SY-VLINE,228 'FROM  ',V_COUNT10,
          243 SY-VLINE,248 'TOTAL',
          268 SY-VLINE.
  WRITE:/      SY-VLINE,002 'Number',
           12  SY-VLINE,
           43  SY-VLINE,
           061 SY-VLINE,065 'TO    ',RASTBIS2,
           079 SY-VLINE,083 'TO    ',RASTBIS3,
           097 SY-VLINE,101 'TO    ',RASTBIS4,
           115 SY-VLINE,119 'TO    ',RASTBIS5,
           133 SY-VLINE,137 'FROM  ',RASTBIS6,
           151 SY-VLINE,155 'FROM  ',RASTBIS7,
           169 SY-VLINE,173 'FROM  ',RASTBIS8,
           187 SY-VLINE,191 'FROM  ',RASTBIS9,
           205 SY-VLINE,209 'FROM  ',RASTBIS0,
           223 SY-VLINE,
           243 SY-VLINE,
           268 SY-VLINE,
           SY-ULINE.
  format color off.
===================================================================
END-OF-SELECTION ***************************
===================================================================
end-of-selection.
===================================================================
Form : Extract_Data *
===================================================================
form extract_data.
Select the Customers
   Select t1~kunnr t2~name1
     into corresponding fields of table  customer_tab
     from knb1 as t1 inner join kna1 as t2
          on t2~kunnr = t1~kunnr
               where t1~bukrs = p_bukrs
                 and t1~kunnr in s_kunnr
                 and t1~BUSAB in s_busab
                 and t2~regio in s_regio
                 and t2~BRSCH in s_BRSCH
                 and t2~KTOKD in s_KTOKD.
   if sy-subrc <> 0.
      message e398(00) with 'No Customers Selected'.
   endif.
   sort customer_tab.
   describe table customer_tab lines v_ttlc.
   v_ttlc = v_ttlc + 10.
   loop at customer_tab.
      v_net1 = 0.
      v_net2 = 0.
      v_net3 = 0.
      v_net4 = 0.
      v_net5 = 0.
      v_net6 = 0.
      v_net7 = 0.
      v_net8 = 0.
      v_net9 = 0.
      v_net10 = 0.
      v_net11 = 0.
      v_net  = 0.
      perform calculate_ageing
                using
                  p_bukrs
                  customer_tab-kunnr
                  dat
                  RASTBIS1
                  RASTBIS2
                  RASTBIS3
                  RASTBIS4
                  RASTBIS5
                  RASTBIS6
                  RASTBIS7
                  RASTBIS8
                  RASTBIS9
                  RASTBIS0
                  P_STAND
                  ' ' "noted item
                  P_SPCAL
               changing
                  v_net1
                  v_net2
                  v_net3
                  v_net4
                  v_net5
                  v_net6
                  v_net7
                  v_net8
                  v_net9
                  v_net10
                  v_net11
                  v_net.
      if p_balyes = 'X' or v_net > 0.
        format color col_total.
        write:/  sy-vline,
                002 customer_tab-kunnr,
                012 SY-VLINE,013(30) customer_tab-name1,
                043 SY-VLINE,044(16)  v_net1,
                061 SY-VLINE,062(16)  v_net2,
                079 SY-VLINE,080(16)  v_net3,
                097 SY-VLINE,098(16)  v_net4,
                115 SY-VLINE,116(16)  v_net5,
                133 SY-VLINE,134(16)  v_net6,
                151 SY-VLINE,152(16)  v_net7,
                169 SY-VLINE,170(16)  v_net8,
                187 SY-VLINE,188(16)  v_net9,
                205 SY-VLINE,206(16)  v_net10,
                223 SY-VLINE,224(16)  v_net11,
                239 SY-VLINE,240(16)  v_net,
                258 SY-VLINE.
         format color off.
         hide : customer_tab-kunnr.
         v_ttlnet1 = v_ttlnet1 + v_net1.
         v_ttlnet2 = v_ttlnet2 + v_net2.
         v_ttlnet3 = v_ttlnet3 + v_net3.
         v_ttlnet4 = v_ttlnet4 + v_net4.
         v_ttlnet5 = v_ttlnet5 + v_net5.
         v_ttlnet6 = v_ttlnet6 + v_net6.
         v_ttlnet7 = v_ttlnet7 + v_net7.
         v_ttlnet8 = v_ttlnet8 + v_net8.
         v_ttlnet9 = v_ttlnet9 + v_net9.
         v_ttlnet10 = v_ttlnet10 + v_net10.
         v_ttlnet11 = v_ttlnet11 + v_net11.
         v_ttlnet  = v_ttlnet  + v_net.
      endif.
   endloop.
   ULINE.
       format color col_total.
       write:/  sy-vline,
                012 SY-VLINE,012(30) ' T O T A L',
                043 SY-VLINE,044(16)  v_ttlnet1,
                061 SY-VLINE,062(16)  v_ttlnet2,
                079 SY-VLINE,080(16)  v_ttlnet3,
                097 SY-VLINE,098(16)  v_ttlnet4,
                115 SY-VLINE,116(16)  v_ttlnet5,
                133 SY-VLINE,134(16)  v_ttlnet6,
                151 SY-VLINE,152(16)  v_ttlnet7,
                169 SY-VLINE,170(16)  v_ttlnet8,
                187 SY-VLINE,188(16)  v_ttlnet9,
                205 SY-VLINE,206(16)  v_ttlnet10,
                223 SY-VLINE,224(16)  v_ttlnet11,
                239 SY-VLINE,240(16)  v_ttlnet,
                258 SY-VLINE.
      format color off.
   ULINE.
endform.
Function to Calculate Aging.
Form calculate_ageing using
                        bukrs
                        kunnr
                        dat
                        RASTBIS1
                        RASTBIS2
                        RASTBIS3
                        RASTBIS4
                        RASTBIS5
                        RASTBIS6
                        RASTBIS7
                        RASTBIS8
                        RASTBIS9
                        RASTBIS0
                        P_STAND
                        P_NOTED
                        P_SPCAL
                      changing
                        v_net1
                        v_net2
                        v_net3
                        v_net4
                        v_net5
                        v_net6
                        v_net7
                        v_net8
                        v_net9
                        v_net10
                        v_net11
                        v_net.
DATA: BEGIN OF BSID_TAB1 OCCURS 0,
         BUKRS LIKE BSID-BUKRS,
         PRCTR LIKE BSID-PRCTR,
         KUNNR LIKE BSID-KUNNR,
         FLAG(1),
         UMSKZ LIKE BSID-UMSKZ,
         BLART LIKE BSID-BLART,
         BELNR LIKE BSID-BELNR,
         BUZEI LIKE BSID-BUZEI,
         NETDT LIKE BSID-ZFBDT,
         ZFBDT LIKE BSID-ZFBDT,
         BUDAT LIKE BSID-BUDAT,
         BLDAT LIKE BSID-BLDAT,
         BSCHL LIKE BSID-BSCHL,
         DMBTR LIKE BSID-DMBTR,
         SHKZG LIKE BSID-SHKZG,
         ZBD1T LIKE BSID-ZBD1T,
         ZBD2T LIKE BSID-ZBD2T,
         ZBD3T LIKE BSID-ZBD3T,
         REBZG LIKE BSID-REBZG,
         REBZT LIKE BSID-REBZT,
         KOART LIKE BSEG-KOART,
         SK1DT LIKE FAEDE-SK1DT,
         SK2DT LIKE FAEDE-SK2DT,
         DAYSD LIKE SY-TABIX,
      END OF BSID_TAB1.
RANGES: R_UMSKZ FOR BSID-UMSKZ.
Data : V_ZFBDT     Like  bsid-ZFBDT,
       V_ZBD1T     Like  bsid-ZBD1T,
       V_ZBD2T     Like  bsid-ZBD2T,
       V_ZBD3T     Like  bsid-ZBD3T,
       V_LINES(8)  TYPE n.
IF P_NOTED = 'X'.     "CHECK NOTED ITEMS
  R_UMSKZ-SIGN = 'I'.
  R_UMSKZ-OPTION = 'EQ'.
  R_UMSKZ-LOW = 'D'.
  APPEND R_UMSKZ.
  R_UMSKZ-SIGN = 'I'.
  R_UMSKZ-OPTION = 'EQ'.
  R_UMSKZ-LOW = 'L'.
  APPEND R_UMSKZ.
ENDIF.
IF P_STAND = 'X'.    "CHECK STANDARD ITEMS
  R_UMSKZ-SIGN = 'I'.
  R_UMSKZ-OPTION = 'EQ'.
  R_UMSKZ-LOW = ' '.
  APPEND R_UMSKZ.
ENDIF.
IF P_SPCAL = 'X'.    "CHECK SPECIAL G/L TRANSACTION
  R_UMSKZ-SIGN = 'I'.
  R_UMSKZ-OPTION = 'EQ'.
  R_UMSKZ-LOW = 'A'.
  APPEND R_UMSKZ.
  R_UMSKZ-SIGN = 'I'.
  R_UMSKZ-OPTION = 'EQ'.
  R_UMSKZ-LOW = 'B'.
  APPEND R_UMSKZ.
ENDIF.
SELECT * FROM BSID INTO CORRESPONDING FIELDS OF TABLE BSID_TAB
           WHERE BUKRS = BUKRS AND
                 budat <= dat  AND
                 KUNNR = KUNNR AND
                 UMSKZ in R_UMSKZ.
SELECT * FROM BSAD appending CORRESPONDING FIELDS OF TABLE BSID_TAB
           WHERE BUKRS = BUKRS AND
                 budat <= dat  AND
                 augdt >= dat  AND
                 KUNNR = KUNNR AND
                 UMSKZ in R_UMSKZ.
DESCRIBE TABLE BSID_TAB LINES V_LINES.
LOOP AT BSID_TAB.
    if bsid_tab-BLART = 'DZ'.
      Select single ZFBDT ZBD1T ZBD2T ZBD3T
        into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)
        from bsid where BUKRS = BUKRS
                    and kunnr = bsid_tab-kunnr
                    and BELNR = bsid_tab-REBZG.
      if sy-subrc = 0.
         bsid_tab-ZFBDT = V_ZFBDT.
         bsid_tab-ZBD1T = V_ZBD1T.
         bsid_tab-ZBD2T = V_ZBD2T.
         bsid_tab-ZBD3T = V_ZBD3T.
      else.
         Select single ZFBDT ZBD1T ZBD2T ZBD3T
           into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)
           from bsad where BUKRS = BUKRS
                       and kunnr = bsid_tab-kunnr
                       and BELNR = bsid_tab-REBZG.
         if sy-subrc <> 0.
           bsid_tab-ZFBDT = V_ZFBDT.
           bsid_tab-ZBD1T = V_ZBD1T.
           bsid_tab-ZBD2T = V_ZBD2T.
           bsid_tab-ZBD3T = V_ZBD3T.
         endif.
      endif.
    endif.
    IF BSID_TAB-SHKZG = 'H'.
      BSID_TAB-DMBTR = BSID_TAB-DMBTR * ( - 1 ).
    ENDIF.
    bsid_tab-netdt = bsid_tab-ZFBDT.
  bsid_tab-netdt = bsid_tab-budat.
    bsid_tab-koart = 'D'.
    MODIFY BSID_TAB.
   PERFORM CALC_DUE_DATE USING BSID_TAB.
    BSID_TAB-DAYSD = DAT - BSID_TAB-NETDT.
    IF BSID_TAB-DAYSD <= RASTBIS1.
      V_NET1 = V_NET1 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS2.
      V_NET2 = V_NET2 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS3.
      V_NET3 = V_NET3 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS4.
      V_NET4 = V_NET4 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS5.
      V_NET5 = V_NET5 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS6.
      V_NET6 = V_NET6 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS7.
      V_NET7 = V_NET7 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS5.
      V_NET8 = V_NET8 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <= RASTBIS9.
      V_NET9 = V_NET9 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD <=  RASTBIS0.
      V_NET10 = V_NET10 + BSID_TAB-DMBTR.
    ELSEIF BSID_TAB-DAYSD >  RASTBIS0.
      V_NET11 = V_NET11 + BSID_TAB-DMBTR.
    ENDIF.
    V_NET = V_NET + BSID_TAB-DMBTR.
    MODIFY BSID_TAB.
ENDLOOP.
endform.
Calculate Due Date
FORM CALC_DUE_DATE USING P_BSID_TAB STRUCTURE BSID_TAB.
  DATA : REFE TYPE P.
IF P_BSID_TAB-KOART = 'K' OR P_BSID_TAB-KOART = 'D'.
  IF P_BSID_TAB-ZFBDT IS INITIAL.
    P_BSID_TAB-ZFBDT = P_BSID_TAB-BLDAT.
  ENDIF.
*Nettofälligkeit bestimmen--
  IF NOT P_BSID_TAB-ZBD3T IS INITIAL.
    REFE = P_BSID_TAB-ZBD3T.
  ELSE.
    IF NOT P_BSID_TAB-ZBD2T IS INITIAL.
      REFE = P_BSID_TAB-ZBD2T.
    ELSE.
      REFE = P_BSID_TAB-ZBD1T.
    ENDIF.
  ENDIF.
*Nichtrechnungsbezogene Gutschriften sind sofort fällig--
  IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'
  OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.
    IF P_BSID_TAB-REBZG IS INITIAL.
      REFE = 0.
    ENDIF.
  ENDIF.
  P_BSID_TAB-NETDT = P_BSID_TAB-ZFBDT + REFE.
*Skontofälligkeiten bestimmen--
  IF NOT P_BSID_TAB-ZBD2T IS INITIAL.
    P_BSID_TAB-SK2DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD2T.
  ELSE.
    P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.
  ENDIF.
  IF NOT P_BSID_TAB-ZBD1T IS INITIAL
  OR NOT P_BSID_TAB-ZBD2T IS INITIAL.
    P_BSID_TAB-SK1DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD1T.
  ELSE.
    P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.
  ENDIF.
*Nichtrechnungsbezogene Gutschriften sind sofort fällig--
  IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'
  OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.
    IF P_BSID_TAB-REBZG IS INITIAL.
      P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.
      P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.
    ENDIF.
  ENDIF.
ELSE.
   MESSAGE E122 RAISING ACCOUNT_TYPE_NOT_SUPPORTED.
ENDIF.
E_FAEDE = FAEDE.
ENDFORM.

Answer 1

Hi,
As vijay said...
1.Declare One final Internal table which you want to show the data
2 . populate the fieldcatalog using the FM or Manually using the itab in step1
3. Collect the Data into final internal table which you created in Step 1.
4. pass the fieldcat and Internal table to ALV FM.
chk out the prg below i have created your program but i donn knw wht are the output fields... chk your prg
*REPORT ZALVTEST .
REPORT ZSAMPLE line-size 260
line-count 65
no standard page heading.
TYPE-POOLS: SLIS.
====================================================================
TABLES *********************************
====================================================================
tables : bseg,
bkpf,
kna1,
bsid,
bsad,
knb1.
data : begin of customer_tab occurs 0,
kunnr like kna1-kunnr,
name1 like kna1-name1,
flag(1) type c,
end of customer_tab.
data : begin of customerdoc_tab occurs 0,
kunnr like kna1-kunnr,
belnr like bkpf-belnr,
gjahr like bkpf-gjahr,
monat like bkpf-monat,
end of customerdoc_tab.
data : begin of doc_tab occurs 0,
belnr like bkpf-belnr,
gjahr like bkpf-gjahr,
monat like bkpf-monat,
end of doc_tab.
DATA: BEGIN OF BSID_TAB OCCURS 0,
BUKRS LIKE BSID-BUKRS,
PRCTR LIKE BSID-PRCTR,
KUNNR LIKE BSID-KUNNR,
FLAG(1),
UMSKZ LIKE BSID-UMSKZ,
BLART LIKE BSID-BLART,
BELNR LIKE BSID-BELNR,
BUZEI LIKE BSID-BUZEI,
NETDT LIKE BSID-ZFBDT,
ZFBDT LIKE BSID-ZFBDT,
BUDAT LIKE BSID-BUDAT,
BLDAT LIKE BSID-BLDAT,
BSCHL LIKE BSID-BSCHL,
DMBTR LIKE BSID-DMBTR,
SHKZG LIKE BSID-SHKZG,
ZBD1T LIKE BSID-ZBD1T,
ZBD2T LIKE BSID-ZBD2T,
ZBD3T LIKE BSID-ZBD3T,
REBZG LIKE BSID-REBZG,
REBZT LIKE BSID-REBZT,
KOART LIKE BSEG-KOART,
SK1DT LIKE FAEDE-SK1DT,
SK2DT LIKE FAEDE-SK2DT,
DAYSD LIKE SY-TABIX,
END OF BSID_TAB.
ranges : r_bukrs for bsid-bukrs,
r_kunnr for kna1-kunnr.
===================================================================
VARIABLES *******************************
===================================================================
data : v_belnr like bseg-belnr,
v_gjahr like bkpf-gjahr,
v_monat like bkpf-monat,
v_ttlc type p,
v_flag(1) type c,
V_COUNT1(4) TYPE N,
V_COUNT2(4) TYPE N,
V_COUNT3(4) TYPE N,
V_COUNT4(4) TYPE N,
V_COUNT5(4) TYPE N,
V_COUNT6(4) TYPE N,
V_COUNT7(4) TYPE N,
V_COUNT8(4) TYPE N,
V_COUNT9(4) TYPE N,
V_COUNT10(4) TYPE N,
V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1
V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2
V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3
V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4
V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5
V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6
V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7
V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8
V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9
V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10
V_NET11 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 11
V_NET LIKE BSID-DMBTR, "Total Balance of Customer
V_ttlNET1 LIKE BSID-DMBTR,
V_ttlNET2 LIKE BSID-DMBTR,
V_ttlNET3 LIKE BSID-DMBTR,
V_ttlNET4 LIKE BSID-DMBTR,
V_ttlNET5 LIKE BSID-DMBTR,
V_ttlNET6 LIKE BSID-DMBTR,
V_ttlNET7 LIKE BSID-DMBTR,
V_ttlNET8 LIKE BSID-DMBTR,
V_ttlNET9 LIKE BSID-DMBTR,
V_ttlNET10 LIKE BSID-DMBTR,
V_ttlNET11 LIKE BSID-DMBTR,
V_ttlNET LIKE BSID-DMBTR,
v_kunnr like bseg-kunnr,
V_BUTXT like t001-butxt.
********Declare Data Areas for List Viewer ***********
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      FIELDCAT_LN LIKE LINE OF FIELDCAT,
      FIELD TYPE SLIS_FIELDNAME,
      COL_POS TYPE I ,
      PGM LIKE SY-REPID,
      FIELD_VALUE(20),
      TABLE_NAME(10).
===================================================================
SELECTION SCREEN ****************************
===================================================================
selection-screen begin of block b1 with frame title text-001.
parameters : p_bukrs like bseg-bukrs obligatory.
select-options : s_kunnr for kna1-kunnr,
s_BRSCH for kna1-BRSCH,
s_REGIO for kna1-REGIO,
s_KTOKD for kna1-KTOKD,
s_BUSAB for knb1-BUSAB.
selection-screen: end of block b1.
selection-screen begin of block b2 with frame title text-003.
PARAMETERS: DAT LIKE SY-DATUM DEFAULT SY-DATUM.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(30) TEXT-002.
SELECTION-SCREEN POSITION POS_LOW.
*PARAMETERS: RASTBIS1 LIKE RFPDO1-ALLGROGR DEFAULT '000'.
*PARAMETERS: RASTBIS2 LIKE RFPDO1-ALLGROGR DEFAULT '030'.
*PARAMETERS: RASTBIS3 LIKE RFPDO1-ALLGROGR DEFAULT '060'.
*PARAMETERS: RASTBIS4 LIKE RFPDO1-ALLGROGR DEFAULT '090'.
*PARAMETERS: RASTBIS5 LIKE RFPDO1-ALLGROGR DEFAULT '120'.
PARAMETERS: RASTBIS1(4) type n DEFAULT '0000'.
PARAMETERS: RASTBIS2(4) type n DEFAULT '0030'.
PARAMETERS: RASTBIS3(4) type n DEFAULT '0060'.
PARAMETERS: RASTBIS4(4) type n DEFAULT '0090'.
PARAMETERS: RASTBIS5(4) type n DEFAULT '0120'.
PARAMETERS: RASTBIS6(4) type n DEFAULT '0150'.
PARAMETERS: RASTBIS7(4) type n DEFAULT '0180'.
PARAMETERS: RASTBIS8(4) type n DEFAULT '0210'.
PARAMETERS: RASTBIS9(4) type n DEFAULT '0240'.
PARAMETERS: RASTBIS0(4) type n DEFAULT '0270'.
SELECTION-SCREEN END OF LINE.
Noted item removed as per FI instruction
PARAMETERS: P_STAND AS CHECKBOX default 'X',
P_NOTED AS CHECKBOX ,
P_SPCAL AS CHECKBOX .
selection-screen: end of block b2.
selection-screen begin of block b3 with frame.
PARAMETERS: allgline like RFPDO1-allgline .
Parameters : p_balyes type c radiobutton group grp9 default 'X',
p_balno type c radiobutton group grp9.
selection-screen: end of block b3.
Check for the Select option
AT SELECTION-SCREEN.
IF P_STAND = '' AND P_SPCAL = '' .
MESSAGE E398(00) WITH 'PLEASE CHOOSE AT LEAST ONE G/L INDICATOR!'.
ENDIF.
Check for Company code Authorization
authority-check object 'F_BKPF_BUK'
ID 'BUKRS' FIELD p_bukrs
ID 'ACTVT' FIELD '03'.
if sy-subrc ne 0.
message e398(00) with 'You are not Authorized for CC ' p_bukrs.
Endif.
===================================================================
START-OF-SELECTION ****************************
===================================================================
START-OF-SELECTION.
V_COUNT1 = RASTBIS1 + 1.
V_COUNT2 = RASTBIS2 + 1.
V_COUNT3 = RASTBIS3 + 1.
V_COUNT4 = RASTBIS4 + 1.
V_COUNT5 = RASTBIS5 + 1.
V_COUNT6 = RASTBIS6 + 1.
V_COUNT7 = RASTBIS7 + 1.
V_COUNT8 = RASTBIS8 + 1.
V_COUNT9 = RASTBIS9 + 1.
V_COUNT10 = RASTBIS0 + 1.
perform extract_data.
Build Field Catalogs **************************
  PERFORM BUILD_FIELDCAT.
*******Start List Viewer *******************************
  PERFORM START_LIST_VIEWER.
===================================================================
At line Selection *****************************
===================================================================
at line-selection.
if sy-lilli >= 9 .
refresh r_bukrs.
move p_bukrs to r_bukrs-low.
move 'I' to r_bukrs-sign.
move 'EQ' to r_bukrs-option.
append r_bukrs.
refresh r_kunnr.
move customer_tab-kunnr to r_kunnr-low.
move 'I' to r_kunnr-sign.
move 'EQ' to r_kunnr-option.
append r_kunnr.
submit ZFARVR0040 and return
with p_bukrs = p_bukrs
with dat = dat
with p_stand = p_stand
with p_spcal = P_SPCAL
with s_kunnr in r_kunnr.
endif.
===================================================================
Top of Page *******************************
===================================================================
TOP-OF-PAGE.
SELECT SINGLE BUTXT FROM T001 INTO V_BUTXT
WHERE BUKRS = p_BUKRS .
WRITE:/73'Customers Aging Analysis',140'PAGE NO.',
SY-PAGNO.
WRITE:/002 'COMPANY',
011 P_BUKRS,
017 V_BUTXT,
055 allgline centered,
140 'DATE :',
150 sy-datum .
write:/002 'User',
011 sy-UNAME,
140 'Time :',
150 sy-UZEIT.
SKIP.
format color col_heading intensified off.
WRITE:/ SY-ULINE,
SY-VLINE,002 'Customer',
012 SY-VLINE,013 'Name',
043 SY-VLINE,048 'CURRENT',
061 SY-VLINE,065 'FROM ',V_COUNT1,
079 SY-VLINE,083 'FROM ',V_COUNT2,
097 SY-VLINE,101 'FROM ',V_COUNT3,
115 SY-VLINE,119 'FROM ',V_COUNT4,
133 SY-VLINE,137 'FROM ',V_COUNT5,
151 SY-VLINE,155 'FROM ',V_COUNT6,
169 SY-VLINE,173 'FROM ',V_COUNT7,
187 SY-VLINE,191 'FROM ',V_COUNT8,
205 SY-VLINE,209 'FROM ',V_COUNT9,
223 SY-VLINE,228 'FROM ',V_COUNT10,
243 SY-VLINE,248 'TOTAL',
268 SY-VLINE.
WRITE:/ SY-VLINE,002 'Number',
12 SY-VLINE,
43 SY-VLINE,
061 SY-VLINE,065 'TO ',RASTBIS2,
079 SY-VLINE,083 'TO ',RASTBIS3,
097 SY-VLINE,101 'TO ',RASTBIS4,
115 SY-VLINE,119 'TO ',RASTBIS5,
133 SY-VLINE,137 'FROM ',RASTBIS6,
151 SY-VLINE,155 'FROM ',RASTBIS7,
169 SY-VLINE,173 'FROM ',RASTBIS8,
187 SY-VLINE,191 'FROM ',RASTBIS9,
205 SY-VLINE,209 'FROM ',RASTBIS0,
223 SY-VLINE,
243 SY-VLINE,
268 SY-VLINE,
SY-ULINE.
format color off.
===================================================================
END-OF-SELECTION ***************************
===================================================================
end-of-selection.
===================================================================
Form : Extract_Data *
===================================================================
form extract_data.
Select the Customers
Select t1~kunnr t2~name1
into corresponding fields of table customer_tab
from knb1 as t1 inner join kna1 as t2
on t2~kunnr = t1~kunnr
where t1~bukrs = p_bukrs
and t1~kunnr in s_kunnr
and t1~BUSAB in s_busab
and t2~regio in s_regio
and t2~BRSCH in s_BRSCH
and t2~KTOKD in s_KTOKD.
if sy-subrc <> 0.
message e398(00) with 'No Customers Selected'.
endif.
sort customer_tab.
describe table customer_tab lines v_ttlc.
v_ttlc = v_ttlc + 10.
loop at customer_tab.
v_net1 = 0.
v_net2 = 0.
v_net3 = 0.
v_net4 = 0.
v_net5 = 0.
v_net6 = 0.
v_net7 = 0.
v_net8 = 0.
v_net9 = 0.
v_net10 = 0.
v_net11 = 0.
v_net = 0.
perform calculate_ageing
using
p_bukrs
customer_tab-kunnr
dat
RASTBIS1
RASTBIS2
RASTBIS3
RASTBIS4
RASTBIS5
RASTBIS6
RASTBIS7
RASTBIS8
RASTBIS9
RASTBIS0
P_STAND
' ' "noted item
P_SPCAL
changing
v_net1
v_net2
v_net3
v_net4
v_net5
v_net6
v_net7
v_net8
v_net9
v_net10
v_net11
v_net.
if p_balyes = 'X' or v_net > 0.
format color col_total.
write:/ sy-vline,
002 customer_tab-kunnr,
012 SY-VLINE,013(30) customer_tab-name1,
043 SY-VLINE,044(16) v_net1,
061 SY-VLINE,062(16) v_net2,
079 SY-VLINE,080(16) v_net3,
097 SY-VLINE,098(16) v_net4,
115 SY-VLINE,116(16) v_net5,
133 SY-VLINE,134(16) v_net6,
151 SY-VLINE,152(16) v_net7,
169 SY-VLINE,170(16) v_net8,
187 SY-VLINE,188(16) v_net9,
205 SY-VLINE,206(16) v_net10,
223 SY-VLINE,224(16) v_net11,
239 SY-VLINE,240(16) v_net,
258 SY-VLINE.
format color off.
hide : customer_tab-kunnr.
v_ttlnet1 = v_ttlnet1 + v_net1.
v_ttlnet2 = v_ttlnet2 + v_net2.
v_ttlnet3 = v_ttlnet3 + v_net3.
v_ttlnet4 = v_ttlnet4 + v_net4.
v_ttlnet5 = v_ttlnet5 + v_net5.
v_ttlnet6 = v_ttlnet6 + v_net6.
v_ttlnet7 = v_ttlnet7 + v_net7.
v_ttlnet8 = v_ttlnet8 + v_net8.
v_ttlnet9 = v_ttlnet9 + v_net9.
v_ttlnet10 = v_ttlnet10 + v_net10.
v_ttlnet11 = v_ttlnet11 + v_net11.
v_ttlnet = v_ttlnet + v_net.
endif.
endloop.
ULINE.
format color col_total.
write:/ sy-vline,
012 SY-VLINE,012(30) ' T O T A L',
043 SY-VLINE,044(16) v_ttlnet1,
061 SY-VLINE,062(16) v_ttlnet2,
079 SY-VLINE,080(16) v_ttlnet3,
097 SY-VLINE,098(16) v_ttlnet4,
115 SY-VLINE,116(16) v_ttlnet5,
133 SY-VLINE,134(16) v_ttlnet6,
151 SY-VLINE,152(16) v_ttlnet7,
169 SY-VLINE,170(16) v_ttlnet8,
187 SY-VLINE,188(16) v_ttlnet9,
205 SY-VLINE,206(16) v_ttlnet10,
223 SY-VLINE,224(16) v_ttlnet11,
239 SY-VLINE,240(16) v_ttlnet,
258 SY-VLINE.
format color off.
ULINE.
endform.
Function to Calculate Aging.
Form calculate_ageing using
bukrs
kunnr
dat
RASTBIS1
RASTBIS2
RASTBIS3
RASTBIS4
RASTBIS5
RASTBIS6
RASTBIS7
RASTBIS8
RASTBIS9
RASTBIS0
P_STAND
P_NOTED
P_SPCAL
changing
v_net1
v_net2
v_net3
v_net4
v_net5
v_net6
v_net7
v_net8
v_net9
v_net10
v_net11
v_net.
DATA: BEGIN OF BSID_TAB1 OCCURS 0,
BUKRS LIKE BSID-BUKRS,
PRCTR LIKE BSID-PRCTR,
KUNNR LIKE BSID-KUNNR,
FLAG(1),
UMSKZ LIKE BSID-UMSKZ,
BLART LIKE BSID-BLART,
BELNR LIKE BSID-BELNR,
BUZEI LIKE BSID-BUZEI,
NETDT LIKE BSID-ZFBDT,
ZFBDT LIKE BSID-ZFBDT,
BUDAT LIKE BSID-BUDAT,
BLDAT LIKE BSID-BLDAT,
BSCHL LIKE BSID-BSCHL,
DMBTR LIKE BSID-DMBTR,
SHKZG LIKE BSID-SHKZG,
ZBD1T LIKE BSID-ZBD1T,
ZBD2T LIKE BSID-ZBD2T,
ZBD3T LIKE BSID-ZBD3T,
REBZG LIKE BSID-REBZG,
REBZT LIKE BSID-REBZT,
KOART LIKE BSEG-KOART,
SK1DT LIKE FAEDE-SK1DT,
SK2DT LIKE FAEDE-SK2DT,
DAYSD LIKE SY-TABIX,
END OF BSID_TAB1.
RANGES: R_UMSKZ FOR BSID-UMSKZ.
Data : V_ZFBDT Like bsid-ZFBDT,
V_ZBD1T Like bsid-ZBD1T,
V_ZBD2T Like bsid-ZBD2T,
V_ZBD3T Like bsid-ZBD3T,
V_LINES(8) TYPE n.
IF P_NOTED = 'X'. "CHECK NOTED ITEMS
R_UMSKZ-SIGN = 'I'.
R_UMSKZ-OPTION = 'EQ'.
R_UMSKZ-LOW = 'D'.
APPEND R_UMSKZ.
R_UMSKZ-SIGN = 'I'.
R_UMSKZ-OPTION = 'EQ'.
R_UMSKZ-LOW = 'L'.
APPEND R_UMSKZ.
ENDIF.
IF P_STAND = 'X'. "CHECK STANDARD ITEMS
R_UMSKZ-SIGN = 'I'.
R_UMSKZ-OPTION = 'EQ'.
R_UMSKZ-LOW = ' '.
APPEND R_UMSKZ.
ENDIF.
IF P_SPCAL = 'X'. "CHECK SPECIAL G/L TRANSACTION
R_UMSKZ-SIGN = 'I'.
R_UMSKZ-OPTION = 'EQ'.
R_UMSKZ-LOW = 'A'.
APPEND R_UMSKZ.
R_UMSKZ-SIGN = 'I'.
R_UMSKZ-OPTION = 'EQ'.
R_UMSKZ-LOW = 'B'.
APPEND R_UMSKZ.
ENDIF.
SELECT * FROM BSID INTO CORRESPONDING FIELDS OF TABLE BSID_TAB
WHERE BUKRS = BUKRS AND
budat <= dat AND
KUNNR = KUNNR AND
UMSKZ in R_UMSKZ.
SELECT * FROM BSAD appending CORRESPONDING FIELDS OF TABLE BSID_TAB
WHERE BUKRS = BUKRS AND
budat <= dat AND
augdt >= dat AND
KUNNR = KUNNR AND
UMSKZ in R_UMSKZ.
DESCRIBE TABLE BSID_TAB LINES V_LINES.
LOOP AT BSID_TAB.
if bsid_tab-BLART = 'DZ'.
Select single ZFBDT ZBD1T ZBD2T ZBD3T
into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)
from bsid where BUKRS = BUKRS
and kunnr = bsid_tab-kunnr
and BELNR = bsid_tab-REBZG.
if sy-subrc = 0.
bsid_tab-ZFBDT = V_ZFBDT.
bsid_tab-ZBD1T = V_ZBD1T.
bsid_tab-ZBD2T = V_ZBD2T.
bsid_tab-ZBD3T = V_ZBD3T.
else.
Select single ZFBDT ZBD1T ZBD2T ZBD3T
into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)
from bsad where BUKRS = BUKRS
and kunnr = bsid_tab-kunnr
and BELNR = bsid_tab-REBZG.
if sy-subrc <> 0.
bsid_tab-ZFBDT = V_ZFBDT.
bsid_tab-ZBD1T = V_ZBD1T.
bsid_tab-ZBD2T = V_ZBD2T.
bsid_tab-ZBD3T = V_ZBD3T.
endif.
endif.
endif.
IF BSID_TAB-SHKZG = 'H'.
BSID_TAB-DMBTR = BSID_TAB-DMBTR * ( - 1 ).
ENDIF.
bsid_tab-netdt = bsid_tab-ZFBDT.
bsid_tab-netdt = bsid_tab-budat.
bsid_tab-koart = 'D'.
MODIFY BSID_TAB.
PERFORM CALC_DUE_DATE USING BSID_TAB.
BSID_TAB-DAYSD = DAT - BSID_TAB-NETDT.
IF BSID_TAB-DAYSD <= RASTBIS1.
V_NET1 = V_NET1 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS2.
V_NET2 = V_NET2 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS3.
V_NET3 = V_NET3 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS4.
V_NET4 = V_NET4 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS5.
V_NET5 = V_NET5 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS6.
V_NET6 = V_NET6 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS7.
V_NET7 = V_NET7 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS5.
V_NET8 = V_NET8 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS9.
V_NET9 = V_NET9 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD <= RASTBIS0.
V_NET10 = V_NET10 + BSID_TAB-DMBTR.
ELSEIF BSID_TAB-DAYSD > RASTBIS0.
V_NET11 = V_NET11 + BSID_TAB-DMBTR.
ENDIF.
V_NET = V_NET + BSID_TAB-DMBTR.
MODIFY BSID_TAB.
ENDLOOP.
endform.
Calculate Due Date
FORM CALC_DUE_DATE USING P_BSID_TAB STRUCTURE BSID_TAB.
DATA : REFE TYPE P.
IF P_BSID_TAB-KOART = 'K' OR P_BSID_TAB-KOART = 'D'.
IF P_BSID_TAB-ZFBDT IS INITIAL.
P_BSID_TAB-ZFBDT = P_BSID_TAB-BLDAT.
ENDIF.
*Nettofälligkeit bestimmen--
IF NOT P_BSID_TAB-ZBD3T IS INITIAL.
REFE = P_BSID_TAB-ZBD3T.
ELSE.
IF NOT P_BSID_TAB-ZBD2T IS INITIAL.
REFE = P_BSID_TAB-ZBD2T.
ELSE.
REFE = P_BSID_TAB-ZBD1T.
ENDIF.
ENDIF.
*Nichtrechnungsbezogene Gutschriften sind sofort fällig--
IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'
OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.
IF P_BSID_TAB-REBZG IS INITIAL.
REFE = 0.
ENDIF.
ENDIF.
P_BSID_TAB-NETDT = P_BSID_TAB-ZFBDT + REFE.
*Skontofälligkeiten bestimmen--
IF NOT P_BSID_TAB-ZBD2T IS INITIAL.
P_BSID_TAB-SK2DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD2T.
ELSE.
P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.
ENDIF.
IF NOT P_BSID_TAB-ZBD1T IS INITIAL
OR NOT P_BSID_TAB-ZBD2T IS INITIAL.
P_BSID_TAB-SK1DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD1T.
ELSE.
P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.
ENDIF.
*Nichtrechnungsbezogene Gutschriften sind sofort fällig--
IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'
OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.
IF P_BSID_TAB-REBZG IS INITIAL.
P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.
P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.
ENDIF.
ENDIF.
ELSE.
MESSAGE E122 RAISING ACCOUNT_TYPE_NOT_SUPPORTED.
ENDIF.
E_FAEDE = FAEDE.
ENDFORM.
*&      Form  BUILD_FIELDCAT
FORM BUILD_FIELDCAT .
  PGM = SY-REPID.
  FIELD      = 'give field name'.
  TABLE_NAME = 'give table name'.
  PERFORM FIELDCAT_FILL USING FIELD.
and so on for the no. of fields you want to display
ENDFORM.                    " BUILD_FIELDCAT
*&      Form  START_LIST_VIEWER
FORM START_LIST_VIEWER.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
   I_INTERFACE_CHECK              = ' '
     I_CALLBACK_PROGRAM             = PGM
   I_CALLBACK_PF_STATUS_SET       = ' '
     I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
   I_STRUCTURE_NAME               =
   IS_LAYOUT                      =
     IT_FIELDCAT                    = FIELDCAT
   IT_EXCLUDING                   =
   IT_SPECIAL_GROUPS              =
   IT_SORT                        =
   IT_FILTER                      =
   IS_SEL_HIDE                    =
     I_DEFAULT                      = 'X'
     I_SAVE                         = 'A'
   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
   IR_SALV_LIST_ADAPTER           =
   IT_EXCEPT_QINFO                =
   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
   E_EXIT_CAUSED_BY_CALLER        =
   ES_EXIT_CAUSED_BY_USER         =
   TABLES
     T_OUTTAB                       = FINAL TAB(OUTPUT STATEMENTS TABLE)
  EXCEPTIONS
    PROGRAM_ERROR                   = 1
    OTHERS                          = 2.
ENDFORM.                    " START_LIST_VIEWER
*&      Form  FIELDCAT_FILL
      text
FORM FIELDCAT_FILL USING FIELD_VALUE.
  ADD 1 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = TABLE_NAME.
  FIELDCAT_LN-FIELDNAME = FIELD_VALUE.
  FIELDCAT_LN-KEY = SPACE.
  FIELDCAT_LN-DO_SUM = SPACE.
  FIELDCAT_LN-COL_POS = COL_POS.
  FIELDCAT_LN-NO_OUT = SPACE.
  FIELDCAT_LN-QFIELDNAME = SPACE.
  FIELDCAT_LN-HOTSPOT = SPACE.
  APPEND FIELDCAT_LN TO FIELDCAT.
ENDFORM.                    " FIELDCAT_FILL
Reward points if you find this helpful
Regards,
Harini