H
FFILEG IP READ01 RPGDAT
FPRINT O F 132 132 OF PRINTERRPGRPT
IFILEG NS 01
I 58 62 ACCNO L1
I 44 45 MONTH
I 46 47 DAY
I 65 722AMOUNT
I 54 540CODE
C SETOF 212223
C* IS THIS THE FIRST CARD IN THE GROUP %
C L1 SETOF 70
C N70 SETON 7021
C* IS IT EVEN OR ODD %
C GREARN ADD GREARN GREARN 62
C N21 CODE DIV 2 ANS 80
C N21 MVR REMAIN 20
C N21 REMAIN COMP 0 232322
C* PUT OLD BALANCE INTO THE POT , BOY
C 21 BAL ADD AMOUNT BAL
C* ADD IF EVEN
C 22 BAL ADD AMOUNT BAL 92
C* SUBTRACT IF ODD
C 23 BAL SUB AMOUNT BAL
C* ADDUP FOR TOTALS
CL1 BAL ADD TOTAL TOTAL 102
OPRINT H 201 1P
O OR OF
O UDATE 09 ' / / '
O 42 'ACCOUNT BALANCE REPORT'
O 53 'PAGE'
O PAGE Z 58
O H 1 1P
O OR OF
O 09 'ACCOUNT'
O 37 'TYPE OF'
O H 2 1P
O OR OF
O 20 'NUMBER DATE'
O 39 'TRANSACTION'
O 55 'AMOUNT'
OPRINT D 1 01
O L1 ACCNO 08
O MONTH 16
O DAY 19
O 17 '/'
O 20 '/'
O 22 '74'
O 21 40 'OLD BALANCE'
O 22 36 'DEPOSIT'
O 23 38 'WITHDRAWL'
O BAL 72 ' 0. CR'
O AMOUNT 59 ' , 0. CR'
O T 12 L1
O 43 'NEW BALANCE'
O BAL B 61 ' , , $0. CR**'
O T 2 LR
O 42 'TOTAL BALANCE'
O TOTAL 63 ' , , $0. CR****'
O T 3 LR
O 30 'PROGRAMMED BY KENNY'