Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/p231.rpg
There is 1 other file named p231.rpg in the archive. Click here to see a list.
01010H P227
01011F* P227
01012F************************************************************* P227
01013F* THIS PROGRAM READS TWO TYPES OF INPUT CARDS - A MASTER * P227
01014F* RECORD WHICH CONTAINS THE DIVISION, EMPLOYEE NUMBER, * P227
01015F* ANAME, ANE PAY RATE. THE SECOND INPUT CARD IS A TIMECARD * P227
01016F* FOR EACH DAY WORKED. A PAYROLL REGISTER IS CREATED * P227
01017F* WHICH CONTAINS THIS INFORMATION TOGETHER WITH THE PAY * P227
01018F* FOR THE EMPLOYEE. IF THERE IS NO TIMECARD FOR AN * P227
01019F* EMPLOYEE A MESSAGE IS PRINTED ON THE REPORT. * P227
01021F************************************************************* P227
01022F* * P227
01020FCARDINP IP F00800080 DISK DAT231 P227
01025F KASCII P227
01030FPAYREG O F01320132 PRINTER P227
02002I* * P227
02003I* * P227
02004I************************************************************* P227
02005I* MASTER INPUT RECORD * P227
02006I************************************************************* P227
02007I* * P227
02010ICARDINP 011 010001 CM P227
02020I 00020003 DIV P227
02030I 00040008 EMPNO L1 P227
02040I 00110030 NAME P227
02050I 003500382RATE P227
02052I* * P227
02054I* * P227
02055I************************************************************* P227
02056I* DAILY TIMECARD INPUT RECORD * P227
02057I************************************************************* P227
02058I* * P227
02060I 02NO020001 CT P227
02070I 00020003 DIV P227
02080I 00040008 EMPNO L1 P227
02090I 001200141HOURS P227
02100I 001500200DATE P227
02110I 00210021 SHIFT P227
02102I* * P227
02104I* * P227
02105I************************************************************* P227
02106I* LOOK AHEAD FIELD * P227
02107I************************************************************* P227
02108I* * P227
02120I AA ** P227
02130I 00010001 CODE P227
03000C* * P227
03001C* * P227
03002C************************************************************* P227
03003C* A CHECK IS PERFORMED TO DETERMINE IF A TIMECARD IS THE * P227
03004C* NEXT RECORD TO BE PROCESSED AFTER THE MASTER RECORD. * P227
03005C* IF NOT, INDICATOR 10 IS SET ON. THEN, THE SUBROUTINE IS * P227
03006C* PERFORMED. * P227
03007C************************************************************* P227
03008C* * P227
03010C 01 CODE COMP 'T' 1010 P227
03012C 02 EXSR SUBRU P231
03014CL1 WEKPAY ADD TOTPAY TOTPAY0082 P231
03015C* * P231
03015C* * P231
03015C************************************************************* P231
03015C* THIS SUBROUTINE IS ENTERED WHENEVER INDICATOR 02 IS ON. * P231
03015C* IT CALCULATES THE EMPLOYEE'S BASIC PAY AND THEN * P231
03015C* DETERMINES IF ANY SHIFT BONUS CHOULD BE PAID. IN ADDITION * P231
03015C* THE DAILY PAY IS ADDED TO A COUNTER CONTAINING THE * P231
03015C* WEEKLY PAY. * P231
03015C************************************************************* P231
03015C* * P231
03016CSR SUBRU BEGSR P231
03018CSR 02 SETOF 303133 P231
03020CSR 02 HOURS MULT RATE DAYPAY0052H P227
03025CSR 02 SHIFT COMP '1' 32 P227
03027CSR 02 32 GOTO OKSHFT P227
03030CSR 02 SHIFT COMP '2' 30 P227
03040CSR 02 30 5.00 ADD DAYPAY DAYPAY P227
03050CSR 02 30 GOTO OKSHFT P227
03060CSR 02 SHIFT COMP '3' 333331 P227
03070CSR 02 31 10.00 ADD DAYPAY DAYPAY P227
03100CSR OKSHFT TAG P227
03120CSR 02 DAYPAY ADD WEKPAY WEKPAY0062 P227
03130CSR ENDSR P231
04002O* * P231
04004O* * P231
04005O************************************************************* P231
04006O* HEADING LINES FOR PAYROLL REGISTER * P231
04007O************************************************************* P231
04008O* * P231
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
05001O* * P231
05002O* * P231
05003O************************************************************* P231
05004O* DETAIL LINE FOR MASTER AND TIMECARD RECORDS - NO SPACING * P231
05005O* FOR MASTER RECORD. ONELINE SPACED FOR TIMECARD. * P231
05006O************************************************************* P231
05007O* * P231
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
05142O* * P231
05144O* * P231
05145O************************************************************* P231
05146O* TOTAL LINE PRINTING WEEKLY TOTALS OR NO TIMECARD MESSAGE * P231
05147O************************************************************* P231
05148O* * P231
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
06002O* * P231
06003O* * P231
06004O************************************************************* P231
06005O* FINAL TOTAL LINE * P231
06006O************************************************************* P231
06007O* * P231
06010O T 2 LR P227
06020O 0073 'TOTAL PAYROLL' P227
06030O TOTPAY1 0085 '$' P227
06040O 0088 '**' P227