Urgent due date calculation in vendor ageing(plz solve)

Question

hi everybody there
i have to calculate the due on date
which is calculated as
dueon = BLINE Date (BSIK-ZFBDT) + No of Days(BSIK-ZBD1T)
for this i am using fm
RP_CALC_DATE_IN_INTERVAL
but it is not working .
could u suggest that what is going wrong with this
fm.
i am calling this fm in following code but it is not working , it is going to dump.
could any one suggest me how to use the above fm in my following code so that i will be able to calculate due on date based on above formula.
my code is as follows
*& 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,
       zbd1t like bsik-zbd1t,
       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.
Loop at t_out.
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.
Modify t_out.
Clear t_out.
Endloop.
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,
chnage ur code.
note the bolded part.
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,
zbd1t LIKE bsik-zbd1t,
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 <b>zbd1t</b>
FROM bsik
INTO <b>corresponding fields of table</b> t_out
WHERE saknr IN s_saknr
AND bukrs IN s_bukrs
AND lifnr IN s_lifnr.
if sy-subrc <> 0.
message 'no data' type 'S'.
endif.
  LOOP AT t_out.
    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>
  data :   dueon like t_out-zfbdt.
  dueon = t_out-zfbdt + t_out-zbd1t.
  write dueon.</b>
    MODIFY t_out.
    CLEAR t_out.
  ENDLOOP.
rgds
anver.
if hlped mark points
  LOOP AT t_out.
    WRITE : / t_out-saknr,
    t_out-lifnr,
    t_out-wrbtr,
    t_out-zfbdt,
    t_out-ageing.