Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/minich.rpg
There is 1 other file named minich.rpg in the archive. Click here to see a list.
     H                                                                    03-02
     FREADIN  IP         80            DISK   DATMIN
     F                                              KASCII
     FWRITEOUTO         132     OF     PRINTER                            02-03
     IREADIN  AA  01                                                      02-03
     I                                        1  20 NAME                  02-03
     I                                       21  272PRVBAL                02-03
     I                                     002800342PURCH                 02-03
     I                                     003500412PAYMNT                02-03
     I                                     004200482RETURN                02-03
     C   01      PRVBAL    ADD  PURCH     AMTDUE  82                      02-03
     C   01      AMTDUE    SUB  PAYMNT    AMTDUE  82                      02-03
     C   01      AMTDUE    SUB  RETURN    AMTDUE  82                      02-03
     C   01      1         ADD  TRNS      TRNS    30                      02-03
     C   01      PRVBAL    ADD  BALTOT    BALTOT  82                      02-03
     C   01      PURCH     ADD  PCHTOT    PCHTOT  82                      02-03
     C   01      PAYMNT    ADD  PAYTOT    PAYTOT  82                      02-03
     C   01      RETURN    ADD  RTNTOT    RTNTOT  82                      02-03
     C   01      AMTDUE    ADD  DUETOT    DUETOT  82                      02-03
     OWRITEOUTH   01   1P                                                 02-03
     O       OR        OF                                                 02-03
     O                         UDATE Y    9                               02-03
     O                                 0048 'ACCOUNTS  RECEIVABLE'        02-03
     O                                 0058 'REGISTER'                    02-03
     O                                   82 'PAGE'                        02-03
     O                         PAGE  Z   87                               02-03
     O        H 2      1P                                                 02-03
     O       OR        OF                                                 02-03
     O                                   14 'CUSTOMER'                    02-03
     O                                   33 'PREVIOUS'                    02-03
     O                                   84 'AMOUNT'                      02-03
     O        H 11     1P                                                 02-03
     O       OR        OF                                                 02-03
     O                                   12 'NAME'                        02-03
     O                                   32 'BALANCE'                     02-03
     O                                   46 'PURCHASES'                   02-03
     O                                   59 'PAYMENTS'                    02-03
     O                                   71 'RETURNS'                     02-03
     O                                   82 'DUE'                         02-03
     O        D 1      01                                                 02-03
     O                         NAME      20                               02-03
     O                         PRVBAL1   33                               02-03
     O                         PURCH 1   46                               02-03
     O                         PAYMNT1   59                               02-03
     O                         RETURN1   72                               02-03
     O                         AMTDUEA   87                               02-03
     O        T 1 01   LR                                                 02-03
     O                                   14 'GRAND TOTALS -'              02-03
     O                         UDATE Y   23                               02-03
     O                                   82 'PAGE'                        02-03
     O                         PAGE  Z   87                               02-03
     O        T 2      LR                                                 02-03
     O                                   22 'TRANSACTIONS PROCESSED'      02-03
     O                         TRNS  Z   27                               02-03
     O        T 2      LR                                                 02-03
     O                                   16 'PREVIOUS BALANCE'            02-03
     O                         BALTOT1   29 '$'                           02-03
     O        T 2      LR                                                 02-03
     O                                   09 'PURCHASES'                   02-03
     O                         PCHTOT1   29 '$'                           02-03
     O        T 2      LR                                                 02-03
     O                                   08 'PAYMENTS'                    02-03
     O                         PAYTOT1   29 '$'                           02-03
     O        T 2      LR                                                 02-03
     O                                   07 'RETURNS'                     02-03
     O                         RTNTOT1   29 '$'                           02-03
     O        T 2      LR                                                 02-03
     O                                   10 'AMOUNT DUE'                  02-03
     O                         DUETOT1   29 '$'                           02-03