Performance Issue in a ABAP Report

Question

Hi All,
I am facing a big performance issue in a abap program which produce the cash flow details our group of company. This is the logic I used to develop the report. (It is a SAP Script)
- First I am getting the closed customer payment records from the table BSAD ( eg: - Type 'DZ')
- Then I am getting the correcponding invoices from the BSAD using the same BELNR ( eg :- Type <> 'DZ')
- Then checking the GL Entry (BSIS) for the correspongding records which select in the second stage.
- In a Z tabel I am keeping the account list by grouping   seperate section ( Eg: - Customer recipts, fixed assets...etc).
I have done the same thing to get the open Item balances also.
Report is correct and running perfectly, but my issue is it's takeing long time to process. Because of this I made this report to run as a background job. But still it is taking such a long time. ( For Eg: - If 1000 records selected from the first stage, it will take about more than onr hour to process, which is not good enough to run in a live environment)
Pls advice me how to improve the preformance of this.

Answer 1

Hi Ravi,
I am sorry I had problem in my internet connection yesterday, because of that i couldn't reply u. Here is my code. I don't is there any way to send the code as a attachement since it is a little bit big one. I am going to paste that here any way.
Here zcashflow_matrix is the "Z" table where I am going to keep my account details by grouping.
REPORT ZCASH_FLOW.
INCLUDE <%_LIST>.
*       Author             Thanura .......                            *
TYPES   :BEGIN OF ty_voucher1,
          kunnr LIKE bseg-kunnr,
          dmbtr LIKE bseg-dmbtr,
          belnr LIKE bseg-belnr,
          hkont LIKE bseg-hkont,
          shkzg LIKE bseg-shkzg,
          xblnr LIKE bsad-xblnr,
          budat LIKE bsad-bldat,
          blart LIKE bsad-blart,
          bldat LIKE bsad-bldat,
          lifnr LIKE bseg-lifnr,
          END OF ty_voucher1.
DATA     :it_voucher1 TYPE STANDARD TABLE OF ty_voucher1 ,
           wa_voucher1 TYPE ty_voucher1.
DATA    : it_voucher2 TYPE STANDARD TABLE OF ty_voucher1,
           wa_voucher2 TYPE ty_voucher1.
DATA    : it_voucher3 TYPE STANDARD TABLE OF ty_voucher1,
           wa_voucher3 TYPE ty_voucher1.
Data : w_ITCPO type ITCPO.
Data : w_ITCPP type ITCPP.
DATA : w_Rcptamt LIKE bseg-dmbtr,
        w_Netamt LIKE bseg-dmbtr,
        w_IntIncomeAmt LIKE bseg-dmbtr,
        w_IntIncome LIKE bseg-dmbtr,
        w_FixedAmt LIKE bseg-dmbtr,
        w_fixedasst LIKE bseg-dmbtr,
        w_Sundry LIKE bseg-dmbtr,
        w_SundryAmt LIKE bseg-dmbtr,
        w_SuppayAmt LIKE bseg-dmbtr,
        w_Suppay LIKE bseg-dmbtr,
        w_SuppayAmt1 LIKE bseg-dmbtr,
        w_Suppay1 LIKE bseg-dmbtr,
        w_DutyAmt LIKE bseg-dmbtr,
        w_Duty LIKE bseg-dmbtr,
        w_SalaryAmt LIKE bseg-dmbtr,
        w_Salary LIKE bseg-dmbtr,
        w_TaxAmt LIKE bseg-dmbtr,
        w_Tax LIKE bseg-dmbtr,
        w_TaxAmt1 LIKE bseg-dmbtr,
        w_Tax1 LIKE bseg-dmbtr,
        w_SellAmt LIKE bseg-dmbtr,
        w_Sell LIKE bseg-dmbtr,
        w_AdminAmt LIKE bseg-dmbtr,
        w_Admin LIKE bseg-dmbtr,
        w_loanAmt LIKE bseg-dmbtr,
        w_loan LIKE bseg-dmbtr,
        w_ManAmt LIKE bseg-dmbtr,
        w_Man LIKE bseg-dmbtr,
        w_CapitalAmt LIKE bseg-dmbtr,
        w_Capital LIKE bseg-dmbtr,
        w_GroupAmt LIKE bseg-dmbtr,
        w_Group LIKE bseg-dmbtr,
        w_IntAmt LIKE bseg-dmbtr,
        w_Int LIKE bseg-dmbtr,
        w_InterAmt LIKE bseg-dmbtr,
        w_Inter LIKE bseg-dmbtr,
        w_AdPayAmt LIKE bseg-dmbtr,
        w_AdPay LIKE bseg-dmbtr,
        w_GTotal LIKE bseg-dmbtr,
        W_COMPANYNAME like zcompany-copmname.
DATA : w_ORcptamt LIKE bseg-dmbtr,
        w_ONetamt LIKE bseg-dmbtr,
        w_OIntIncomeAmt LIKE bseg-dmbtr,
        w_OIntIncome LIKE bseg-dmbtr,
        w_OFixedAmt LIKE bseg-dmbtr,
        w_Ofixedasst LIKE bseg-dmbtr,
        w_OSundry LIKE bseg-dmbtr,
        w_OSundryAmt LIKE bseg-dmbtr,
        w_OSuppayAmt LIKE bseg-dmbtr,
        w_OSuppay LIKE bseg-dmbtr,
        w_OSuppayAmt1 LIKE bseg-dmbtr,
        w_OSuppay1 LIKE bseg-dmbtr,
        w_ODutyAmt LIKE bseg-dmbtr,
        w_ODuty LIKE bseg-dmbtr,
        w_OSalaryAmt LIKE bseg-dmbtr,
        w_OSalary LIKE bseg-dmbtr,
        w_OTaxAmt LIKE bseg-dmbtr,
        w_OTax LIKE bseg-dmbtr,
        w_OTaxAmt1 LIKE bseg-dmbtr,
        w_OTax1 LIKE bseg-dmbtr,
        w_OSellAmt LIKE bseg-dmbtr,
        w_OSell LIKE bseg-dmbtr,
        w_OAdminAmt LIKE bseg-dmbtr,
        w_OAdmin LIKE bseg-dmbtr,
        w_OloanAmt LIKE bseg-dmbtr,
        w_Oloan LIKE bseg-dmbtr,
        w_OManAmt LIKE bseg-dmbtr,
        w_OMan LIKE bseg-dmbtr,
        w_OCapitalAmt LIKE bseg-dmbtr,
        w_OCapital LIKE bseg-dmbtr,
        w_OGroupAmt LIKE bseg-dmbtr,
        w_OGroup LIKE bseg-dmbtr,
        w_OIntAmt LIKE bseg-dmbtr,
        w_OInt LIKE bseg-dmbtr,
        w_OInterAmt LIKE bseg-dmbtr,
        w_OInter LIKE bseg-dmbtr,
        w_OAdPayAmt LIKE bseg-dmbtr,
        w_OAdPay LIKE bseg-dmbtr.
DATA : w_NNetamt LIKE bseg-dmbtr,
        w_NIntIncome LIKE bseg-dmbtr,
        w_Nfixedasst LIKE bseg-dmbtr,
        w_NSundry LIKE bseg-dmbtr,
        w_NSuppay LIKE bseg-dmbtr,
        w_NSuppay1 LIKE bseg-dmbtr,
        w_NDuty LIKE bseg-dmbtr,
        w_NSalary LIKE bseg-dmbtr,
        w_NTax LIKE bseg-dmbtr,
        w_NTax1 LIKE bseg-dmbtr,
        w_NSell LIKE bseg-dmbtr,
        w_NAdmin LIKE bseg-dmbtr,
        w_Nloan LIKE bseg-dmbtr,
        w_NMan LIKE bseg-dmbtr,
        w_NCapital LIKE bseg-dmbtr,
        w_NGroup LIKE bseg-dmbtr,
        w_NInt LIKE bseg-dmbtr,
        w_NInter LIKE bseg-dmbtr,
        w_NAdPay LIKE bseg-dmbtr.
RANGES : r_bwart FOR  bsad-blart.
TABLES: bsad.
*       Internal tables          Begin with IT_                       *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:      p_bukrs LIKE bsad-bukrs OBLIGATORY.
SELECT-OPTIONS:  s_bldat FOR  bsad-bldat OBLIGATORY.
* SELECT-OPTIONS:   s_hkont FOR bsad-hkont .
PARAMETERS:      p_gjahr LIKE bkpf-gjahr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1 .
* PARAMETERS : w_local   TYPE char1 RADIOBUTTON GROUP g1 DEFAULT 'X'. .
* PARAMETERS : w_curr  TYPE char1 RADIOBUTTON GROUP g1 .
w_ITCPO-TDNEWID = 'X'.
*w_itcpo-tdgetotf   = 'X'.
*opern form
   CALL FUNCTION 'OPEN_FORM'
    EXPORTING
*        APPLICATION                       = 'TX'
*        ARCHIVE_INDEX                     =
*        ARCHIVE_PARAMS                    =
*         DEVICE                            = 'PRINTER'
*        DIALOG                            = ' '
      form                                 = 'ZCASHFLOW_FORM1'
*        LANGUAGE                          = SY-LANGU
         OPTIONS                           = w_ITCPO
*        MAIL_SENDER                       =
*        MAIL_RECIPIENT                    =
*        MAIL_APPL_OBJECT                  =
*        RAW_DATA_INTERFACE                = '*'
*        SPONUMIV                          =
*      IMPORTING
*        LANGUAGE                          =
*        NEW_ARCHIVE_PARAMS                =
*        RESULT                            =
*      EXCEPTIONS
*        CANCELED                          = 1
*        DEVICE                            = 2
*        FORM                              = 3
*        OPTIONS                           = 4
*        UNCLOSED                          = 5
*        MAIL_OPTIONS                      = 6
*        ARCHIVE_ERROR                     = 7
*        INVALID_FAX_NUMBER                = 8
*        MORE_PARAMS_NEEDED_IN_BATCH       = 9
*        SPOOL_ERROR                       = 10
*        CODEPAGE                          = 11
*        OTHERS                            = 12
   IF sy-subrc <> 0.
*   message id sy-msgid type sy-msgty number sy-msgno
*           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
PERFORM select_data_closed.
PERFORM select_data_open.
* calculate the net figures
w_NNetamt = w_Netamt + w_ONetamt.
w_NIntIncome = w_IntIncome + w_OIntIncome.
*w_NInCompRct = w_InCompRct + w_OInCompRct.
w_NfixedAsst = w_fixedAsst + w_OfixedAsst.
w_NSundry = w_Sundry + w_OSundry.
w_NSuppay = w_Suppay + w_OSuppay.
w_NSuppay1 = w_Suppay1 + w_OSuppay1.
w_NDuty = w_Duty + w_ODuty.
w_NSalary = w_Salary + w_OSalary.
w_NTax = w_Tax + w_OTax.
w_NTax1 = w_Tax1 + w_OTax1.
w_NSell = w_Sell + w_OSell.
w_NAdmin = w_Admin + w_OAdmin.
w_NCapital = w_Capital + w_OCapital.
w_Nloan = w_loan + w_Oloan.
w_NMan = w_Man + w_OMan.
w_NGroup = w_Group + w_OGroup.
w_NInt = w_Int + w_OInt.
w_NInter = w_Inter + w_OInter.
w_NAdPay = w_AdPay + w_OAdPay.
w_GTotal = ( w_NNetamt + w_NIntIncome + w_NfixedAsst + w_NSundry ) - (
w_NSuppay + w_NSuppay1 + w_NDuty + w_NSalary + w_NTax + w_NTax1 +
w_NSell + w_NAdmin + w_NCapital + w_Nloan + w_NMan + w_NGroup + w_NInt +
w_NInter + w_NAdPay ).
* Write the Main Account Balance
     CALL FUNCTION 'WRITE_FORM'
       EXPORTING
         element  = 'MAIN'
         function = 'SET'
         type     = 'BODY'
         window   = 'MAIN'.
     IF sy-subrc <> 0.
**   message id sy-msgid type sy-msgty number sy-msgno
**           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     ENDIF.
w_ITCPP-TDNEWID = 'X'.
   CALL FUNCTION 'CLOSE_FORM'
      IMPORTING
         RESULT                         = w_ITCPP
*        RDI_RESULT                     =
*      TABLES
*        OTFDATA                        =
*      EXCEPTIONS
*        UNOPENED                       = 1
*        BAD_PAGEFORMAT_FOR_PRINT       = 2
*        SEND_ERROR                     = 3
*        SPOOL_ERROR                    = 4
*        CODEPAGE                       = 5
*        OTHERS                         = 6
   IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
FORM select_data_closed.
   SELECT SINGLE copmname INTO w_companyname
      FROM zcompany
       WHERE  copcode = p_bukrs.
* Select the receipts
   SELECT SUM( dmbtr ) AS dmbtr belnr kunnr hkont shkzg xblnr budat
blart bldat
   INTO CORRESPONDING FIELDS OF TABLE it_voucher3
   FROM  bsad
   WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
           AND augdt IN s_bldat
           AND blart = 'DZ'
*            AND blart = 'DZ' and shkzg = 'S'
           GROUP BY kunnr belnr hkont shkzg xblnr budat blart bldat.
   SORT it_voucher3 BY kunnr.
   LOOP AT it_voucher3 INTO wa_voucher3.
* Select the invoices
     SELECT SUM( dmbtr ) AS dmbtr belnr kunnr hkont shkzg xblnr budat
blart bldat
     INTO CORRESPONDING FIELDS OF TABLE it_voucher1
     FROM  bsad
     WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
             AND augdt IN s_bldat
             AND blart <> 'DZ' AND
             augbl = wa_voucher3-belnr AND
             kunnr = wa_voucher3-kunnr
             GROUP BY belnr kunnr hkont shkzg xblnr budat blart bldat.
     LOOP AT it_voucher1 INTO wa_voucher1.
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_Rcptamt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX001' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_Rcptamt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX001' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Netamt = w_Netamt + w_Rcptamt.
              continue.
            ENDIF.
       ELSE.
             w_Netamt = w_Netamt + w_Rcptamt.
             continue.
       ENDIF.
* Interest Income
      SELECT SINGLE dmbtr FROM bsis INTO w_IntIncomeAmt WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX002' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_IntIncomeAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX002' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_IntIncome = w_IntIncome + w_IntIncomeAmt.
              continue.
            ENDIF.
       ELSE.
             w_IntIncome = w_IntIncome + w_IntIncomeAmt.
             continue.
       ENDIF.
* Sale Of fixed Assets
      SELECT SINGLE dmbtr FROM bsis INTO w_FixedAmt WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX004' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_FixedAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX004' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_fixedasst = w_fixedasst + w_FixedAmt.
              continue.
            ENDIF.
       ELSE.
             w_fixedasst = w_fixedasst + w_FixedAmt.
             continue.
       ENDIF.
* Gl Receipts ( Sundry Income)
      SELECT SINGLE dmbtr FROM bsis INTO w_SundryAmt WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX005' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_SundryAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX005' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Sundry = w_Sundry + w_SundryAmt.
                            continue.
            ENDIF.
       ELSE.
             w_Sundry = w_Sundry + w_SundryAmt.
                          continue.
       ENDIF.
     ENDLOOP.
   ENDLOOP.
*Out Flow
r_bwart-sign = 'I'. r_bwart-option = 'EQ'. r_bwart-low = 'KZ'.
APPEND r_bwart TO r_bwart.
r_bwart-sign = 'I'. r_bwart-option = 'EQ'. r_bwart-low = 'VZ'.
APPEND r_bwart TO r_bwart.
   SELECT SUM( dmbtr ) AS dmbtr belnr lifnr hkont shkzg xblnr budat
blart bldat
   INTO CORRESPONDING FIELDS OF TABLE it_voucher3
   FROM  bsak
   WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
           AND augdt IN s_bldat
           AND blart IN  r_bwart
*            AND blart = 'DZ' and shkzg = 'S'
           GROUP BY lifnr belnr hkont shkzg xblnr budat blart bldat.
   SORT it_voucher3 BY lifnr.
   LOOP AT it_voucher3 INTO wa_voucher3.
* Select the invoices
     SELECT SUM( dmbtr ) AS dmbtr belnr lifnr hkont shkzg xblnr budat
blart bldat
     INTO CORRESPONDING FIELDS OF TABLE it_voucher1
     FROM  bsak
     WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
             AND augdt IN s_bldat
             AND blart NOT IN r_bwart AND
             augbl = wa_voucher3-belnr AND
             lifnr = wa_voucher3-lifnr
             GROUP BY belnr lifnr hkont shkzg xblnr budat blart bldat.
     LOOP AT it_voucher1 INTO wa_voucher1.
* Supplier Payments  (LOCAL)
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_SupPayAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY001' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_SupPayAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY001' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_SupPay = w_SupPay + w_SupPayAmt.
                            continue.
            ENDIF.
       ELSE.
             w_SupPay = w_SupPay + w_SupPayAmt.
                          continue.
       ENDIF.
* supplier Payments  (Foreign )
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_SupPayAmt1 WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY002' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_SupPayAmt1  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY002' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_SupPay1 = w_SupPay1 + w_SupPayAmt1.
              continue.
            ENDIF.
       ELSE.
             w_SupPay1 = w_SupPay1 + w_SupPayAmt1.
              continue.
       ENDIF.
* duty/clearing expenses
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_DutyAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY003' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_DutyAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY003' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Duty = w_Duty + w_DutyAmt.
              continue.
            ENDIF.
       ELSE.
             w_Duty = w_Duty + w_DutyAmt.
              continue.
       ENDIF.
* Salary /EPF/ETF/MSPS/OVERTIME
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_SalaryAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY004' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_SalaryAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY004' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Salary = w_Salary + w_SalaryAmt.
              continue.
            ENDIF.
       ELSE.
             w_Salary = w_Salary + w_SalaryAmt.
              continue.
       ENDIF.
* Income Taxes
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_TaxAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY005' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_TaxAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY005' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Tax = w_Tax + w_TaxAmt.
              continue.
            ENDIF.
       ELSE.
             w_Tax = w_Tax + w_TaxAmt.
              continue.
       ENDIF.
* other taxes ( VAT: TT:Debit tax )
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_TaxAmt1 WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY006' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_TaxAmt1  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY006' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Tax1 = w_Tax1 + w_TaxAmt1.
              continue.
            ENDIF.
       ELSE.
             w_Tax1 = w_Tax1 + w_TaxAmt1.
              continue.
       ENDIF.
* Selling  & Promotional Costs
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_SellAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY007' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_SellAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY007' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Sell = w_Sell + w_SellAmt.
              continue.
            ENDIF.
       ELSE.
             w_Sell = w_Sell + w_SellAmt.
              continue.
       ENDIF.
* Admistration costs
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_AdminAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY008' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_AdminAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY008' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Admin = w_Admin + w_AdminAmt.
              continue.
            ENDIF.
       ELSE.
             w_Admin = w_Admin + w_AdminAmt.
              continue.
       ENDIF.
* Capital Expenditure
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_CapitalAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY009' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_CapitalAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY009' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Capital = w_Capital + w_CapitalAmt.
              continue.
            ENDIF.
       ELSE.
             w_Capital = w_Capital + w_CapitalAmt.
              continue.
       ENDIF.
* Loan repayments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_LoanAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY010' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_LoanAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY010' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Loan = w_Loan + w_LoanAmt.
              continue.
            ENDIF.
       ELSE.
             w_Loan = w_Loan + w_LoanAmt.
              continue.
       ENDIF.
* maangment fees
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_ManAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY011' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_ManAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY011' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Man = w_Man + w_ManAmt.
              continue.
            ENDIF.
       ELSE.
             w_Man = w_Man + w_ManAmt.
              continue.
       ENDIF.
* Group charges
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_GroupAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY012' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_GroupAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY012' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Group = w_Group + w_GroupAmt.
              continue.
            ENDIF.
       ELSE.
             w_Group = w_Group + w_GroupAmt.
              continue.
       ENDIF.
* Interest Payments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_IntAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY013' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_IntAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY013' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Int = w_Int + w_IntAmt.
              continue.
            ENDIF.
       ELSE.
             w_Int = w_Int + w_IntAmt.
              continue.
       ENDIF.
* Other Intercompany payments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_InterAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY014' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_InterAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY014' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Inter = w_Inter + w_InterAmt.
              continue.
            ENDIF.
       ELSE.
             w_Inter = w_Inter + w_InterAmt.
              continue.
       ENDIF.
* Advacnes/Prepayments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_AdPayAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY015' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_AdPayAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY015' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_AdPay = w_AdPay + w_AdPayAmt.
              continue.
            ENDIF.
       ELSE.
             w_AdPay = w_AdPay + w_AdPayAmt.
              continue.
       ENDIF.
     ENDLOOP.
   ENDLOOP.
* Open Item Balances
ENDFORM.                    " Select_Data
FORM select_data_Open.
*   SELECT SINGLE copmname INTO w_companyname
*      FROM zcompany
*       WHERE  copcode = p_bukrs.
* Select the receipts
   SELECT SUM( dmbtr ) AS dmbtr belnr kunnr hkont shkzg xblnr budat
blart bldat
   INTO CORRESPONDING FIELDS OF TABLE it_voucher3
   FROM  bsid
   WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
           AND augdt IN s_bldat
           AND blart = 'DZ'
*            AND blart = 'DZ' and shkzg = 'S'
           GROUP BY kunnr belnr hkont shkzg xblnr budat blart bldat.
   SORT it_voucher3 BY kunnr.
   LOOP AT it_voucher3 INTO wa_voucher3.
* Select the invoices
     SELECT SUM( dmbtr ) AS dmbtr belnr kunnr hkont shkzg xblnr budat
blart bldat
     INTO CORRESPONDING FIELDS OF TABLE it_voucher1
     FROM  bsid
     WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
             AND augdt IN s_bldat
             AND blart <> 'DZ' AND
             augbl = wa_voucher3-belnr AND
             kunnr = wa_voucher3-kunnr
             GROUP BY belnr kunnr hkont shkzg xblnr budat blart bldat.
     LOOP AT it_voucher1 INTO wa_voucher1.
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_ORcptamt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX001' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_ORcptamt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX001' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_ONetamt = w_ONetamt + w_ORcptamt.
              continue.
            ENDIF.
       ELSE.
             w_ONetamt = w_ONetamt + w_ORcptamt.
              continue.
       ENDIF.
* Interest Income
      SELECT SINGLE dmbtr FROM bsis INTO w_OIntIncomeAmt WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX002' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OIntIncomeAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX002' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OIntIncome = w_OIntIncome + w_OIntIncomeAmt.
              continue.
            ENDIF.
       ELSE.
             w_OIntIncome = w_OIntIncome + w_OIntIncomeAmt.
              continue.
       ENDIF.
* Sale Of fixed Assets
      SELECT SINGLE dmbtr FROM bsis INTO w_OFixedAmt WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX004' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OFixedAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX004' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_Ofixedasst = w_Ofixedasst + w_OFixedAmt.
              continue.
            ENDIF.
       ELSE.
             w_Ofixedasst = w_Ofixedasst + w_OFixedAmt.
              continue.
       ENDIF.
* Gl Receipts ( Sundry Income)
      SELECT SINGLE dmbtr FROM bsis INTO w_OSundryAmt WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX005' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OSundryAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'XX005' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OSundry = w_OSundry + w_OSundryAmt.
              continue.
            ENDIF.
       ELSE.
             w_OSundry = w_OSundry + w_OSundryAmt.
              continue.
       ENDIF.
     ENDLOOP.
   ENDLOOP.
*Out Flow
Clear r_bwart.
refresh r_bwart.
r_bwart-sign = 'I'. r_bwart-option = 'EQ'. r_bwart-low = 'KZ'.
APPEND r_bwart TO r_bwart.
r_bwart-sign = 'I'. r_bwart-option = 'EQ'. r_bwart-low = 'VZ'.
APPEND r_bwart TO r_bwart.
   SELECT SUM( dmbtr ) AS dmbtr belnr lifnr hkont shkzg xblnr budat
blart bldat
   INTO CORRESPONDING FIELDS OF TABLE it_voucher3
   FROM  bsik
   WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
           AND augdt IN s_bldat
           AND blart IN  r_bwart
*            AND blart = 'DZ' and shkzg = 'S'
           GROUP BY lifnr belnr hkont shkzg xblnr budat blart bldat.
   SORT it_voucher3 BY lifnr.
   LOOP AT it_voucher3 INTO wa_voucher3.
* Select the invoices
     SELECT SUM( dmbtr ) AS dmbtr belnr lifnr hkont shkzg xblnr budat
blart bldat
     INTO CORRESPONDING FIELDS OF TABLE it_voucher1
     FROM  bsik
     WHERE   bukrs = p_bukrs AND gjahr = p_gjahr
             AND augdt IN s_bldat
             AND blart NOT IN r_bwart AND
             augbl = wa_voucher3-belnr AND
             lifnr = wa_voucher3-lifnr
             GROUP BY belnr lifnr hkont shkzg xblnr budat blart bldat.
     LOOP AT it_voucher1 INTO wa_voucher1.
* Supplier Payments  (LOCAL)
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OSupPayAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY001' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OSupPayAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY001' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OSupPay = w_OSupPay + w_OSupPayAmt.
              continue.
            ENDIF.
       ELSE.
             w_OSupPay = w_OSupPay + w_OSupPayAmt.
              continue.
       ENDIF.
* supplier Payments  (Foreign )
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OSupPayAmt1 WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY002' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OSupPayAmt1  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY002' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OSupPay1 = w_OSupPay1 + w_OSupPayAmt1.
              continue.
            ENDIF.
       ELSE.
             w_OSupPay1 = w_OSupPay1 + w_OSupPayAmt1.
              continue.
       ENDIF.
* duty/clearing expenses
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_ODutyAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY003' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_ODutyAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY003' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_ODuty = w_ODuty + w_ODutyAmt.
              continue.
            ENDIF.
       ELSE.
             w_ODuty = w_ODuty + w_ODutyAmt.
              continue.
       ENDIF.
* Salary /EPF/ETF/MSPS/OVERTIME
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OSalaryAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY004' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OSalaryAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY004' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OSalary = w_OSalary + w_OSalaryAmt.
              continue.
            ENDIF.
       ELSE.
             w_OSalary = w_OSalary + w_OSalaryAmt.
              continue.
       ENDIF.
* Income Taxes
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OTaxAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY005' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OTaxAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY005' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OTax = w_OTax + w_OTaxAmt.
              continue.
            ENDIF.
       ELSE.
             w_OTax = w_OTax + w_OTaxAmt.
              continue.
       ENDIF.
* other taxes ( VAT: TT:Debit tax )
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OTaxAmt1 WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY006' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OTaxAmt1  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY006' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OTax1 = w_OTax1 + w_OTaxAmt1.
              continue.
            ENDIF.
       ELSE.
             w_OTax1 = w_OTax1 + w_OTaxAmt1.
              continue.
       ENDIF.
* Selling  & Promotional Costs
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OSellAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY007' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OSellAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY007' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OSell = w_OSell + w_OSellAmt.
              continue.
            ENDIF.
       ELSE.
             w_OSell = w_OSell + w_OSellAmt.
              continue.
       ENDIF.
* Admistration costs
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OAdminAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY008' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OAdminAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY008' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OAdmin = w_OAdmin + w_OAdminAmt.
              continue.
            ENDIF.
       ELSE.
             w_OAdmin = w_OAdmin + w_OAdminAmt.
              continue.
       ENDIF.
* Capital Expenditure
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OCapitalAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY009' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OCapitalAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY009' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OCapital = w_OCapital + w_OCapitalAmt.
              continue.
            ENDIF.
       ELSE.
             w_OCapital = w_OCapital + w_OCapitalAmt.
              continue.
       ENDIF.
* Loan repayments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OLoanAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY010' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OLoanAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY010' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OLoan = w_OLoan + w_OLoanAmt.
              continue.
            ENDIF.
       ELSE.
             w_OLoan = w_OLoan + w_OLoanAmt.
              continue.
       ENDIF.
* maangment fees
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OManAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY011' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OManAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY011' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OMan = w_OMan + w_OManAmt.
              continue.
            ENDIF.
       ELSE.
             w_OMan = w_OMan + w_OManAmt.
              continue.
       ENDIF.
* Group charges
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OGroupAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY012' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OGroupAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY012' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OGroup = w_OGroup + w_OGroupAmt.
              continue.
            ENDIF.
       ELSE.
             w_OGroup = w_OGroup + w_OGroupAmt.
              continue.
       ENDIF.
* Interest Payments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OIntAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY013' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OIntAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY013' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OInt = w_OInt + w_OIntAmt.
              continue.
            ENDIF.
       ELSE.
             w_OInt = w_OInt + w_OIntAmt.
              continue.
       ENDIF.
* Other Intercompany payments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OInterAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY014' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OInterAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY014' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OInter = w_OInter + w_OInterAmt.
              continue.
            ENDIF.
       ELSE.
             w_OInter = w_OInter + w_OInterAmt.
              continue.
       ENDIF.
* Advacnes/Prepayments
*  Find the corresponding entry in the GL open
      SELECT SINGLE dmbtr FROM bsis INTO w_OAdPayAmt WHERE
*           hkont = '0010003900' AND
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY015' ) AND  bukrs = p_bukrs  AND
               gjahr = p_gjahr  AND
               belnr = wa_voucher1-belnr.
       IF sy-subrc <> 0.
* If the corresponding entry not found in GL open, look in the GL Closed
      SELECT SINGLE dmbtr FROM bsas INTO  w_OAdPayAmt  WHERE
           hkont IN ( select fglacc from zcashflow_matrix WHERE FCODE =
'YY015' ) AND bukrs = p_bukrs  AND
              gjahr = p_gjahr  AND
              belnr = wa_voucher1-belnr.
            IF sy-subrc = 0.
              w_OAdPay = w_OAdPay + w_OAdPayAmt.
              continue.
            ENDIF.
       ELSE.
             w_OAdPay = w_OAdPay + w_OAdPayAmt.
              continue.
       ENDIF.
     ENDLOOP.
   ENDLOOP.
ENDFORM.                    " Select_Data