Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p81.rpg
There is 1 other file named p81.rpg in the archive. Click here to see a list.
01010H                                                                    P81   
01020FPAYCARD IP  F00800080            DISK   DAT81                       P81   
01025F                                              KASCII                P81   
01030FPAYREPT O   F01320132     OF     PRINTER                            P81   
02010IPAYCARD AA  01                                                      P81   
02020I                                     000100040EMPNO                 P81   
02030I                                     00110030 NAME                  P81   
02040I                                     004000442REGERN                P81   
02050I                                     004500492OVTERN                P81   
03010C   01      REGERN    ADD  OVTERN    TOTERN0062                      P81   
03020C   01      TOTPAY    ADD  TOTERN    TOTPAY0072                      P81   
03030C   01      EMPNOS    ADD  1         EMPNOS0040                      P81   
04010OPAYREPT H  201   1P                                                 P81   
04020O       OR        OF                                                 P81   
04030O                         UDATE Y 0009                               P81   
04040O                                 0048 'E A R N I N G S'             P81   
04050O                                 0062 'R E P O R T'                 P81   
04060O                                 0091 'PAGE'                        P81   
04070O                         PAGE    0096                               P81   
04080O        H  1     1P                                                 P81   
04090O       OR        OF                                                 P81   
04100O                                 0015 'EMPLOYEE'                    P81   
04110O                                 0061 'REGULAR'                     P81   
04120O                                 0077 'OVERTIME'                    P81   
04130O                                 0093 'TOTAL'                       P81   
04140O        H  2     1P                                                 P81   
04150O       OR        OF                                                 P81   
04160O                                 0014 'NUMBER'                      P81   
04170O                                 0036 'NAME'                        P81   
04180O                                 0061 'EARNINGS'                    P81   
04190O                                 0077 'EARNINGS'                    P81   
04200O                                 0095 'EARNINGS'                    P81   
05010O        D  1     01                                                 P81   
05020O                         EMPNO Z 0013                               P81   
05030O                         NAME    0044                               P81   
05040O                         REGERN1 0060                               P81   
05050O                         OVTERN1 0076                               P81   
05060O                         TOTERN1 0095                               P81   
05070O        T 2      LR                                                 P81   
05080O                                 0030 'TOTAL EMPLOYEES'             P81   
05090O                         EMPNOSZ 0035                               P81   
05100O                                 0083 'TOTAL PAYROLL'               P81   
05110O                         TOTPAY1 0095 '$'                           P81