Google
 

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