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