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