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