* PROGRAM ID : SUMMER99
* PROG NAME : IRAADE PROGRAM
* PROGRAMMER : MARTIN O'SULLIVAN
* DATE : MAY 1999
* DATE MODIFIED :
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
*****************************************************************
*** INDICATORS = 03 EXIT
*** 99 CHAIN
*** 12 CANCEL
*** 10 PAGE OVERFLOW
F***********************FILE SPEC*********************************
FIRAL1 UF E K DISK
FIRASCR CF E WORKSTN
FIRAREP O E PRINTER
C***********************MAINLINE CODE*****************************
C EXSR REPHED
C EXSR HEAD
C EXFMTPROMPT
C *IN03 DOWEQ'0'
C *IN12 ANDEQ'0'
C EMPNO CHAINIRAREC 99
C *IN99 IFEQ '1'
C SETOF 60
C ELSE
C EXSR HEAD
C EXFMTDETSCR
C *IN12 IFEQ '0'
C *IN03 ANDEQ'0'
C EXSR MOVE
C EXSR CALCPY
C EXSR MOVE2
C EXFMTREDSPL
C EXSR UPDFIL
C UPDATIRAREC
C WRITEDETAIL
C EXSR PG
C ENDIF
C ENDIF
C *IN03 IFEQ '0'
C *IN60 CASEQ'0' HEAD
C ENDCS
C EXFMTPROMPT
C ENDIF
C ENDDO
C WRITEFOOTER
C MOVE '1' *INLR
C*****************************************************************
C* SUBROUTINE : REPORT HEAD
C* PURPOSE: TO WRITE HEADER AND FOOTER LINES
C*****************************************************************
C REPHED BEGSR
C WRITEREPHDG1
C WRITECOLHDG
C ENDSR
C*****************************************************************
C* SUBROUTINE : HEAD
C* PURPOSE: TO DISPLAY HEADER AND FOOTER SCREEN
C*****************************************************************
C HEAD BEGSR
C WRITEFOOT
C WRITEHDRSCN
C ENDSR
C*****************************************************************
C* SUBROUTINE: PG
C* PURPOSE: POSSIBLE NEW PAGE
C*****************************************************************
C PG BEGSR
C *IN10 IFEQ '1'
C EXSR REPHED
C SETOF 10
C ENDIF
C ENDSR
C*****************************************************************
C* SUBROUTINE: CALCPY
C* PURPOSE: CALCULATE PAY
C*****************************************************************
C CALCPY BEGSR
C STAT IFEQ 'F'
C EXSR FLDWKR
C ELSE
C EXSR HOMWKR
C ENDIF
C ENDSR
C*****************************************************************
C* SUBROUTINE: FLDWKR
C* PURPOSE: CALCULATE PAY FOR FIELD WORKERS
C*****************************************************************
C FLDWKR BEGSR
C RATE MULT REGHRS FLD1 52
C RATE MULT 1.5 FLD2 52
C FLD2 MULT OVRHRS FLD3 52
C FLD1 ADD FLD3 GROPAY
C ENDSR
C*****************************************************************
C* SUBROUTINE: MOMWKR
C* PURPOSE: CALCULATE PAY FOR PEOPLE WORKING AT HOME
C*****************************************************************
C HOMWKR BEGSR
C RATE MULT REGHRS HOM1 52
C RATE MULT 1.5 HOM2 52
C FLD2 MULT OVRHRS HOM3 52
C FLD1 ADD FLD3 GROPAY
C ENDSR
C*****************************************************************
C* SUBROUTINE: MOVE
C* PURPOSE: TO MOVE THE F OR THE H FROM THE EMPLOYEE NUMBER
C*****************************************************************
C MOVE BEGSR
C MOVELEMPNO STAT 1
C ENDSR
C*****************************************************************
C* SUBROUTINE: MOVE2
C* PURPOSE: TO MOVE THE F OR THE H FROM THE EMPLOYEE NUMBER
C*****************************************************************
C MOVE2 BEGSR
C MOVE GROPAY GROSCR
C MOVE NETPAY NETSCR
C ENDSR
C*****************************************************************
C* SUBROUTINE: UPDFIL
C* PURPOSE: TO UPDATE THE FILE WITH THE NEW GROCE PAY
C*****************************************************************
C UPDFIL BEGSR
C ADD GROPAY YTD
C ENDSR
C*****************************************************************