Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/testit.rpg
There is 1 other file named testit.rpg in the archive. Click here to see a list.
     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'