Google
 

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