URGENT check the code for vendor ageing (Give Solution)

Question

hi this is the code which i am using to calculate the
ageing but not able to get the result.
every time the result is 0.plz suggest me the solution.
its very urgent.
*& Report  Z_VENDOR AGEING                                                    *
*&  in this repoet I am calculating the vendor ageing
    which is depending on formula
    AGEING = Current Date(or any date entered by user) – Bline Date(BSIK-zfbdt) 
REPORT  z_vendor  NO STANDARD PAGE HEADING
                  LINE-SIZE 200
                  LINE-COUNT 65(3).
TABLES : bsik.
DATA : BEGIN OF t_out OCCURS 0,
       bukrs LIKE bsik-bukrs,
       saknr LIKE bsik-saknr,
       bldat LIKE bsik-bldat,
       wrbtr LIKE bsik-wrbtr,
       lifnr LIKE bsik-lifnr,
       zfbdt like bsik-zfbdt,
       ageing type i,
       END OF t_out.
parameters : p_date1 type d.
SELECT-OPTIONS : s_bukrs FOR bsik-bukrs,
                 s_saknr FOR bsik-saknr,
                 s_lifnr FOR bsik-lifnr.
SELECT bukrs saknr bldat wrbtr lifnr zfbdt
       FROM bsik
       INTO  TABLE t_out
       WHERE saknr IN s_saknr
       AND bukrs IN s_bukrs
       AND lifnr IN s_lifnr.
CALL FUNCTION 'DAYS_BETWEEN_TWO_DATES'
  EXPORTING
    i_datum_bis                   = p_date1
    i_datum_von                   = t_out-zfbdt
  I_KZ_EXCL_VON                 = '0'
  I_KZ_INCL_BIS                 = '0'
  I_KZ_ULT_BIS                  = ' '
  I_KZ_ULT_VON                  = ' '
  I_STGMETH                     = '0'
  I_SZBMETH                     = '1'
IMPORTING
   E_TAGE                        = t_out-ageing
EXCEPTIONS
  DAYS_METHOD_NOT_DEFINED       = 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.
LOOP AT t_out.
  WRITE : / t_out-saknr,
            t_out-lifnr,
            t_out-wrbtr,
            t_out-zfbdt,
            t_out-ageing.
ENDLOOP.

Answer 1

hi sanjeev,
still problem there.
dont worry. just copy this code.
try this code.
TABLES : bsik.
DATA : BEGIN OF t_out OCCURS 0,
bukrs LIKE bsik-bukrs,
saknr LIKE bsik-saknr,
bldat LIKE bsik-bldat,
wrbtr LIKE bsik-wrbtr,
lifnr LIKE bsik-lifnr,
zfbdt like bsik-zfbdt,
ageing type i,
END OF t_out.
parameters : p_date1 type d.
SELECT-OPTIONS : s_bukrs FOR bsik-bukrs,
s_saknr FOR bsik-saknr,
s_lifnr FOR bsik-lifnr.
SELECT bukrs saknr bldat wrbtr lifnr zfbdt
FROM bsik
INTO <b>corresponding fields of</b> TABLE t_out
WHERE saknr IN s_saknr
AND bukrs IN s_bukrs
AND lifnr IN s_lifnr.
<b>loop at t_out.</b>
CALL FUNCTION 'DAYS_BETWEEN_TWO_DATES'
EXPORTING
i_datum_bis = p_date1
i_datum_von = t_out-zfbdt
I_KZ_EXCL_VON = '0'
I_KZ_INCL_BIS = '0'
I_KZ_ULT_BIS = ' '
I_KZ_ULT_VON = ' '
I_STGMETH = '0'
I_SZBMETH = '1'
IMPORTING
E_TAGE = t_out-ageing
EXCEPTIONS
DAYS_METHOD_NOT_DEFINED = 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.
<b>modify t_out.</b>
clear t_out.
<b>endloop.</b>
LOOP AT t_out.
WRITE : / t_out-saknr,
t_out-lifnr,
t_out-wrbtr,
t_out-zfbdt,
t_out-ageing.
endloop
rgds
anver
Message was edited by: Anversha s