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

• 25

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
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
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
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
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
*--------------* INITIALISATION: *--------------* FN.CUSTOMER.ACCOUNT = 'F.CUSTOMER.ACCOUNT'

#### 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

• 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.

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

• 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.

Dana University of Pennsylvania ‘17, Course Hero Intern

• 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.

Jill Tulane University ‘16, Course Hero Intern