****************************************************************

** PROGRAM NAME: JONAS2.RPG

** AUTHOR: JONAS WIK

** DESCRIPTION: THIS PROGRAM READS A LIST OF LOANS AND USES A

** PERCENTAGE TO COMPUTE THE INTEREST AMOUNT AND THE TOTAL LOAN

** AMOUNT AND PRINTS OUT A REPORT SHOWING THE LOAN NUMBER,

** PRINCIPLE, THE PERCENTAGE INTEREST RATE, THE NUMBER OF DAYS

** THE INTEREST AMOUNT AND THE TOTAL AMOUNT(INTEREST+PRINCIPLE)

****************************************************************

** INDICATOR SUMMARY

**

** 01 RECORD IDENTIFYING INDICATOR FOR MLOANP

** 1P FIRST PAGE INDICATOR FOR PRINTING HEADINGS ON THE REPORT

** OF OVERFLOW INDICATOR FOR QSYSPRT REPORT

** LR LAST RECORD INDICATOR FOR THE FOOTER

****************************************************************

**

FMLOANP IP F 80 DISK

FQSYSPRT O F 80 OF PRINTER

**

****************************************************************

** RECORD DESCRIPTION FOR INPUT FILE MLOANP

**

** LOANNO = LOAN NUMBER

** PRINC = PRINCIPLE

** RATE = RATE OF INTEREST

** DAYS = NUMBER OF DAYS

** FILLER = BLANKS

****************************************************************

**

IMLOANP NS 01

I 1 5 LOANNO

I 6 132PRINC

I 14 185RATE

I 19 220DAYS

I 23 80 FILLER

**

****************************************************************

** DATA STRUCTURE

**

** AMTINT = INTEREST AMOUNT

** COUNT = COUNT FOR THE NUMBER OF LOANS

** PCRATE = RATE IN PERCENTAGE FOR INTEREST

** TOTAL = TOTAL AMOUNT DUE

****************************************************************

**

I#WORK DS

I 1 72AMTINT

I 8 90COUNT

I 10 143PCRATE

I 15 232TOTAL

C 90 SETOF OF

C OF SETON 90

****************************************************************

** CALCULATE THE INTEREST AMOUNT BY USING THE FORMULA I=(R*P)/T

** WHERE I IS THE INTEREST AMOUNT, R IS THE INTEREST RATE, P IS

** THE PRINCIPLE AND T IS THE NUMBER OF DAYS. MULTIPLY 100

** WITH THE RATE TO GET THE NUMBER OF PERCENT AND SUM UP THE

** PRINCIPLE WITH THE INTEREST AMOUNT TO GET THE TOTAL AMOUNT

****************************************************************

C PRINC MULT RATE AMTINT H

C AMTINT DIV DAYS AMTINT H

C ADD 1 COUNT

C RATE MULT 100 PCRATE

C PRINC ADD AMTINT TOTAL

****************************************************************

** OUTPUT STARTS HERE

****************************************************************

OQSYSPRT H 1 1P

O OR OF

O 37 'SIMPLE INTEREST'

O 52 'LOAN SCHEDULES'

O 75 'PAGE'

O PAGE Z 80

O H 3 1P

O OR OF

O 9 'JONAS WIK'

O H 1 1P

O OR OF

O 7 'LOAN'

O 38 'INTEREST RATE'

O 49 'TIME IN'

O 62 'INTEREST'

O 76 'TOTAL'

O H 2 1P

O OR OF

O 8 'NUMBER'

O 22 'PRINCIPAL'

O 34 '/ANNUM'

O 47 'DAYS'

O 61 'ON LOAN'

O 78 'AMOUNT DUE'

O D 2 01

O LOANNO 7

O PRINC J 23

O PCRATE 34 '0 . '

O 36 '%'

O DAYS Z 47

O 52 '$'

O AMTINTJ 63

O TOTAL 80 ' , , $0. -'

O T 3 LR

O COUNT Z 5

O 20 'LOANS REPORTED'