Name: Anonymous 2014-01-11 16:34
LOOK.UP; EVERY CUST
: Read in every customer
: Next find the customer’s total deposits.
DETERMINE; TOTAL DEPOSITS AMOUNT (CUST.CUSTOMER)
: Calculate the interest due.
MULTIPLY; CUST.INTEREST GLB.TOTAL
SD; SD-INTEREST (INTEREST)
: Now create the interest deposit for the customer
AUTO.ENTRY; DEPOS
AUTO; CUST.CUSTOMER CUSTOMER
AUTO; GLB.TOTAL AMOUNT
AUTO; SD-INTEREST NARRATION
AUTO; WRITE&CLEAR
...
...
: Create the other side of the entry.
AUTO.ENTRY; JRNL
AUTO; SD-INTEREST LEDGER
AUTO; GLB.TOTAL AMOUNT
AUTO; CONTRA AMOUNT
AUTO; WRITE&CLEAR
: If the customer is unemployed, the interest
: amount must also be sent to the EMPLOY System.
DO.WHEN; CUST.ETYPE=(N)
MOVE; (EMPLOYDB) GLB.DESTINATION
AUTO.ENTRY; DEPOS
AUTO; CUST.CUSTOMER CUSTOMER
AUTO; GLB.TOTAL AMOUNT
AUTO; SD-INTEREST NARRATION
AUTO; WRITE&CLEAR
MOVE; GLB.SELF GLB.DESTINATION
END;
END