* PROGRAM ID : SALES
* PROG NAME : SALESMAN SALARY/COMMISSION REPORT
* PROGRAMMER : MARTIN O'SULLIVAN
* DATE : OCTOBER 1998
* DATE MODIFIED :
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
********************************************************
*** INDICATORS = 10 FOR PAGE OVERFLOW
*** 45 END OF FILE
********************************************************
*** FILE SPECIFICATION
********************************************************
FSALREPP IF E DISK
FCOMREP O E 10 PRINTER
********************************************************
* MAIN CODE
********************************************************
C EXSR HEADRS
C READ SALREPP 45
C *IN45 DOWEQ'0'
C*
C EXSR SALY
C EXSR NSLS
C EXSR CMSS
C EXSR CMON
C EXSR TOT
C*
C WRITEDETAIL
C *IN10 IFEQ '1'
C EXSR HEADRS
C SETOF 10
C ENDIF
C READ SALREPP 45
C ENDDO
C WRITETOTALS
C SETON LR
*
C HEADRS BEGSR
C WRITEHEADER
C WRITECOLHDG
C ENDSR
*
C SALY BEGSR
C YRSEMP IFLT 2
C MOVE 600 SALARY 62
C ELSE
C MOVE 1000 SALARY 62
C ENDIF
C ENDSR
C*
C NSLS BEGSR
C MTHSAL SUB SALRET NETSAL
C ENDSR
C*
C CMON BEGSR
C NETSAL IFGT 2000
C EXSR ADIT
C ENDIF
C ENDSR
C*
C CMSS BEGSR
C NETSAL SUB 2000 COMSAL
C ENDSR
C*
C ADIT BEGSR
C YRSEMP IFGE 2
C EXSR HICO
C ELSE
C EXSR LOCO
C ENDIF
C ENDSR
C*
C HICO BEGSR
C COMSAL IFGT 30000
C COMSAL MULT 0.25 COMSAL
C ELSE
C COMSAL IFGT 2000
C COMSAL MULT 0.20 COMSAL
C ENDIF
C ENDIF
C ENDSR
C*
C LOCO BEGSR
C COMSAL IFGT 25000
C COMSAL MULT 0.12 COMSAL
C ELSE
C COMSAL IFGT 2000
C COMSAL MULT 0.14 COMSAL
C ENDIF
C ENDIF
C ENDSR
C*
C TOT BEGSR
C ADD MTHSAL GRSTOT 92
C ADD SALRET RETTOT
C ADD NETSAL TNET
C ADD COMSAL SALTOT 92
C*
C ENDSR