XXXXXX A customer at any point in time may want to know the total of his

Xxxxxx a customer at any point in time may want to

This preview shows page 8 - 14 out of 25 pages.

XXXXXX  A customer, at any point in time, may want to know the total of his Forward credit movements (Money that is due to the customer at a future date) Forward debit movements (Money that the customer is liable to pay at a future date) Accrued interest that is due to the customer (total) Accrued interest that the customer is liable to pay (total) NOFILE Enquiry Example
Image of page 8
CUSTOMER.ACCOUNT – To obtain the list of accounts for a particular customer  ACCT.ENT.FWD – To obtain the forward STMT.ENTRY Ids for an account of a customer  STMT.ENTRY – To obtain the details of the STMT.ENTRY record ACCR.ACCT.CR – To obtain accrued credit interest ACCR.ACCT.DR - To obtain accrued credit interest Files To Be Used
Image of page 9
Solution 1 - Algorithm For the customer number supplied, extract record from CUSTOMER.ACCOUNT AC1 FM AC2 FM AC3 FM AC4 Read ACCT.ENT.FWD with the Account ID FST1 FM FST2 FM FST3 Read STMT.ENTRY with the STMT.ENTRY ID AcId FM CoCode FM LCYAmt FM TranCode FM CusID FM ………………. Extract the local currency amount and check if > than 0 If > 0 then Future Cr Mov += Future Cr Mov else Future Dr Mov += Future Dr Mov Extract the next ID and process  All F STMT entries have been processed
Image of page 10
Solution 1 - Algorithm Read the ACCR.ACCT.CR file with the Account ID CrIntDate FM CrNoOfDays FM CrIntRate FM CrIntAmt FM CrIntCateg FM….. TotalInterest Total Credit Interest += Total Interest Read the ACCR.ACCT.DR file with the Account ID PrFstDate FM PrLstDt FM D IntDate FM DrNoOfDays FM.. TotalInterest Total Debit Interest += Total Interest Get back to next account Concatenate values in return parameter: Account ID,Tot Fwd Dr,Tot Fwd Cr,Total Dr Int,Tot Cr Int
Image of page 11
SUBROUTINE E.NOF.CUS.AC.DET(AC.DET.ARR) $INCLUDE GLOBUS.BP I_COMMON $INCLUDE GLOBUS.BP I_EQUATE $INCLUDE GLOBUS.BP I_F.ACCOUNT $INCLUDE GLOBUS.BP I_F.CUSTOMER $INCLUDE GLOBUS.BP I_F.CUSTOMER.ACCOUNT $INCLUDE GLOBUS.BP I_F.STMT.ENTRY $INCLUDE GLOBUS.BP I_F.ACCR.ACCT.CR $INCLUDE GLOBUS.BP I_F.ACCR.ACCT.DR $INCLUDE GLOBUS.BP I_ENQUIRY.COMMON GOSUB INITIALISATION GOSUB OPEN.FILES GOSUB PROCESS RETURN Routine for the NOFILE Enquiry
Image of page 12
*--------------* INITIALISATION: *--------------* FN.CUSTOMER.ACCOUNT = 'F.CUSTOMER.ACCOUNT'
Image of page 13
Image of page 14

You've reached the end of your free preview.

Want to read all 25 pages?

  • Fall '14
  • Interest, Subroutine, The Return, NOFILE Enquiry

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern

Stuck? We have tutors online 24/7 who can help you get unstuck.
A+ icon
Ask Expert Tutors You can ask You can ask You can ask (will expire )
Answers in as fast as 15 minutes
A+ icon
Ask Expert Tutors