Regarding subroutine in script

Question

hi friends,
i am calling suroutine in script i write in main window of script this
/: PERFORM ZVEND IN PROGRAM ZRFI_CONF_SUB
/: USING &BSIK-LIFNR&
  /:USING &BSIK-BUDAT&
/:ENDPERFORM .
i created subroutine pool ZRFI_CONF_SUB.
but when i am debugging form it is not going in that subroutine
where i am wrong plz reply me .
regards,
sonu

Answer 1

hi anji,
i am pesting my code plz plz help me plz go through the code .
in script
PERFORM ZVEND IN PROGRAM ZRFI_CONF_SUB
USING &BSIK-LIFNR&
USING &BSIK-BUDAT&
ENDPERFORM
*& Subroutine pool   ZRFI_CONF_SUB                                            *
PROGRAM  ZRFI_CONF_SUB.
DATA : BEGIN OF I_BSID OCCURS 0,
           KUNNR LIKE BSID-KUNNR,
           WRBTR LIKE BSID-WRBTR,
           BUDAT LIKE BSID-BUDAT,
           SHKZG like BSID-shkzg,
           BSTAT LIKE BSID-BSTAT,
       END OF I_BSID.
DATA : BEGIN OF I_BSAD OCCURS 0,
           KUNNR LIKE BSAD-KUNNR,
           WRBTR LIKE BSAD-WRBTR,
           BUDAT LIKE BSAD-BUDAT,
           SHKZG like BSAD-SHKZG,
           BSTAT LIKE BSAD-BSTAT,
       END OF I_BSAD.
DATA : BEGIN OF I_BSIK OCCURS 0,
           LIFNR LIKE BSIK-LIFNR,
           WRBTR LIKE BSIK-WRBTR,
           BUDAT LIKE BSIK-BUDAT,
           shkzg like bsik-shkzg,
           BSTAT LIKE BSIK-BSTAT,
       END OF I_BSIK.
DATA : BEGIN OF I_BSAK OCCURS 0,
           LIFNR LIKE BSAK-LIFNR,
           WRBTR LIKE BSAK-WRBTR,
           BUDAT LIKE BSAK-BUDAT,
           shkzg like bsak-shkzg,
           BSTAT LIKE BSAK-BSTAT,
       END OF I_BSAK.
*****This is form to get the total in Vendor Bal.ConformationForm*****
FORM ZVEND TABLES IN_BSIK STRUCTURE ITCSY
                  OUT_BSIK STRUCTURE ITCSY.
  data : year(4),
         month(2),
         day(2),
         date(8).
  DATA : V_AMNT TYPE P DECIMALS 2,
         V_AMT  TYPE P DECIMALS 2,
         V_TOT  TYPE P DECIMALS 2,
         V_TOTAL(20),
         V_LIFNR(10) TYPE N,
         V_BUDAT(10),
         V_WRBTR LIKE BSID-WRBTR.
  READ TABLE IN_BSIK INDEX 1.
  V_LIFNR = IN_BSIK-VALUE.
  READ TABLE IN_BSIK INDEX 2.
  V_BUDAT = IN_BSIK-VALUE.
  year  = V_BUDAT+6(4).
  month = V_BUDAT+3(2).
  day   = V_BUDAT+0(2).
  CONCATENATE year month day into date.
  SELECT LIFNR WRBTR BUDAT SHKZG BSTAT FROM  BSIK
                                       INTO  table I_BSIK
                                       WHERE LIFNR = V_LIFNR.
  SELECT LIFNR WRBTR BUDAT SHKZG BSTAT FROM  BSAK
                                       INTO  table I_BSAK
                                       WHERE LIFNR = V_LIFNR.
  LOOP AT I_BSIK WHERE LIFNR = V_LIFNR.
    if i_bsik-BUDAT <= date and i_bsik-bstat ne 'S'.
      if i_bsik-shkzg = 'S' .
        V_AMNT = V_AMNT + I_BSIK-WRBTR .
      else.
        V_AMNT = V_AMNT - I_BSIK-WRBTR.
      endif.
    endif.
  ENDLOOP.
  LOOP AT I_BSAK WHERE LIFNR = V_LIFNR.
    if i_bsak-BUDAT <= date and i_bsak-bstat ne 'S'.
      if i_bsak-shkzg = 'S'.
        V_AMT = V_AMT + I_BSAK-WRBTR .
      else.
        V_AMT = V_AMT - I_BSAK-WRBTR.
      endif.
    endif.
  ENDLOOP.
  V_TOT = V_AMNT + V_AMT.
  V_TOTAL = V_TOT.
  READ TABLE OUT_BSIK INDEX 1.
  OUT_BSIK-VALUE = V_TOTAL.
  MODIFY  OUT_BSIK INDEX 1.
ENDFORM.                    "ZVEND
**This is form to get the total in Customer Bal.Conformation Form*****
FORM ZCUST TABLES IN_BSID STRUCTURE ITCSY
                  OUT_BSID STRUCTURE ITCSY.
  data : year(4),
         month(2),
         day(2),
         date(8).
  DATA : V_AMNT TYPE P DECIMALS 2,
         V_AMT  TYPE P DECIMALS 2,
         V_TOT  TYPE P DECIMALS 2,
         V_TOTAL(20),
         V_KUNNR(10) type n,
         V_BUDAT(10),
         V_WRBTR LIKE BSID-WRBTR.
  READ TABLE IN_BSID INDEX 1.
  V_KUNNR = IN_BSID-VALUE.
  READ TABLE IN_BSID INDEX 2.
  V_BUDAT = IN_BSID-VALUE.
  year  = V_BUDAT+6(4).
  month = V_BUDAT+3(2).
  day   = V_BUDAT+0(2).
  CONCATENATE year month day into date.
  SELECT KUNNR WRBTR BUDAT SHKZG BSTAT FROM  BSID
                                 INTO  table I_BSID
                                 WHERE KUNNR =  V_KUNNR.
  SELECT KUNNR WRBTR BUDAT SHKZG BSTAT FROM  BSAD
                                 INTO  table I_BSAD
                                 WHERE KUNNR = V_KUNNR.
  LOOP AT I_BSID WHERE KUNNR = V_KUNNR.
    if i_bsid-BUDAT <= date and i_bsid-bstat ne 'S'.
      if i_bsid-shkzg = 'S' .
        V_AMNT = V_AMNT + I_BSID-WRBTR .
      else.
        V_AMNT = V_AMNT - I_BSID-WRBTR.
      endif.
    endif.
  ENDLOOP.
  LOOP AT I_BSAD WHERE KUNNR = V_KUNNR.
    if i_bsad-BUDAT <= date and i_bsad-bstat ne 'S'.
      if i_bsad-shkzg = 'S'.
        V_AMT = V_AMT + I_BSAD-WRBTR .
      else.
        V_AMT = V_AMT - I_BSAD-WRBTR.
      endif.
    endif.
  ENDLOOP.
  V_TOT   = V_AMNT + V_AMT.
  V_TOTAL = V_TOT.
  READ TABLE OUT_BSID INDEX 1.
  OUT_BSID-VALUE = V_TOTAL.
  MODIFY  OUT_BSID INDEX 1.
ENDFORM.                    "ZCUST