Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/p227.rpg
There is 1 other file named p227.rpg in the archive. Click here to see a list.
01010H P227
01020FCARDINP IP F00800080 DISK DAT227 P227
01025F KASCII P227
01030FPAYREG O F01320132 PRINTEROUT227 P227
02010ICARDINP 011 010001 CM P227
02020I 00020003 DIV P227
02030I 00040008 EMPNO L1 P227
02040I 00110030 NAME P227
02050I 003500382RATE P227
02060I 02NO020001 CT P227
02070I 00020003 DIV P227
02080I 00040008 EMPNO L1 P227
02090I 001200141HOURS P227
02100I 001500200DATE P227
02110I 00210021 SHIFT P227
02120I AA ** P227
02130I 00010001 CODE P227
03010C 01 CODE COMP 'T' 1010 P227
03015C 02 SETOF 303133 P227
03020C 02 HOURS MULT RATE DAYPAY0052H P227
03025C 02 SHIFT COMP '1' 32 P227
03027C 02 32 GOTO OKSHFT P227
03030C 02 SHIFT COMP '2' 30 P227
03040C 02 30 5.00 ADD DAYPAY DAYPAY P227
03050C 02 30 GOTO OKSHFT P227
03060C 02 SHIFT COMP '3' 333331 P227
03070C 02 31 10.00 ADD DAYPAY DAYPAY P227
03100C OKSHFT TAG P227
03120C 02 DAYPAY ADD WEKPAY WEKPAY0062 P227
03130CL1 WEKPAY ADD TOTPAY TOTPAY0082 P227
04010OPAYREG H 201 1P P227
04020O OR OF P227
04030O UDATE Y 0009 P227
04040O 0052 'PAYROLL REGISTER' P227
04050O 0080 'PAGE' P227
04060O PAGE 0085 P227
04070O H 1 1P P227
04080O OR OF P227
04090O 0008 'EMPLOYEE' P227
04100O 0071 'SHIFT' P227
04110O H 2 1P P227
04120O OR OF P227
04130O 0005 'NO' P227
04140O 0013 'DIV' P227
04150O 0027 'NAME' P227
04160O 0046 'DATE' P227
04170O 0056 'HOURS' P227
04180O 0063 'RATE' P227
04190O 0071 'BONUS' P227
04200O 0079 'PAY' P227
05010O D 1 02 P227
05020O OR 0 01 P227
05040O 01 EMPNO 0006 P227
05050O 01 DIV 0013 P227
05060O 01 NAME 0037 P227
05070O 02 DATE Y 0048 P227
05080O 02 HOURS 1 0055 P227
05090O 02 RATE 1 0063 P227
05100O 02 30 0071 '5.00' P227
05110O 02 31 0071 '10.00' P227
05120O 02 32 0071 '.00' P227
05130O 02 33 0072 'UNKNOWN' P227
05140O 02 DAYPAY1 0080 P227
05150O T 12 L1N10 P227
05160O OR 02 L1 10 P227
05170O N10 0071 'TOTAL PAY' P227
05180O N10 WEKPAY1B0080 P227
05190O N10 0082 '*' P227
05195O 10 0064 'NO TIME CARD READ' P227
06010O T 2 LR P227
06020O 0073 'TOTAL PAYROLL' P227
06030O TOTPAY1 0085 '$' P227
06040O 0088 '**' P227