Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/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