FEMPPAYF IF  E                    DISK                             
      FPAYREP  O   E             10     PRINTER                          
      C                     EXSR HEADRS                                  
      C                     READ EMPPAYF                  45             
      C           *IN45     DOWEQ'0'                                     
      C                     EXSR CALC                                    
      C                     WRITEDETAIL                                  
      C           *IN10     IFEQ '1'                                     
      C                     EXSR HEADRS                                  
      C                     SETOF                     10                 
      C                     ENDIF                                        
      C                     READ EMPPAYF                  45             
      C                     ENDDO                                        
      C                     WRITETOTAL                                   
      C                     SETON                     LR                 
      C*                                                                 
      C           HEADRS    BEGSR                                        
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     ENDSR                                        
       *                                                                 
       *                                                                 
      C           CALC      BEGSR                                        
      C                     Z-ADD0         OTPAY   62                    
      C           SHIFT     IFGT 'D'                                     
      C           HRRATE    MULT 1.15      HRRATE                        
      C                     MOVE 'NIGHT'   SHIFO   5                     
      C                     ELSE                                         
      C                     MOVE 'DAY  '   SHIFO                         
      C                     ENDIF                                        
      C*                                                                 
      C           MINUTS    DIV  60        HRS     20                    
      C                     MVR            REMAIN  20                    
      C*                                                                 
      C           REMAIN    IFEQ *ZERO                                   
      C                     Z-ADDHRS       THRS    31                    
      C                     ELSE                                         
      C           REMAIN    IFLT 30                                      
      C           HRS       ADD  0.5       THRS                          
      C                     ELSE                                         
      C           HRS       ADD  1         THRS                          
      C                     ENDIF                                        
      C                     ENDIF                                        
      C*                                                                 
      C           THRS      MULT HRRATE    REGPAY  62                    
      C*                                                                 
      C           THRS      IFGT 35                                      
      C           THRS      SUB  35        OTHRS   31                    
      C           HRRATE    DIV  2         OTRATE  42H                   
      C           OTHRS     MULT OTRATE    OTPAY     H                   
      C                     ENDIF                                        
      C*                                                                 
      C           REGPAY    ADD  OTPAY     WEKPAY  62                    
      C                     ADD  THRS      TOTHRS  52                    
      C                     ADD  REGPAY    TOTREG  82                    
      C                     ADD  OTPAY     TOTOT   82                    
      C                     ADD  WEKPAY    TOTPAY  82                    
      C                     ENDSR                                        



   back to RPG page