* PROGRAM ID : CUSMAINT
* PROG NAME : CUSTOMER MASTER MAINTENCE
* PROGRAM TO CALL ADD, DELETE, UPDATE SUBPROG
* AUTHOR : Martin O'Sullivan
* DATE : JUNE 1998
* DATE MODIFIED : FEBRUARY 199
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
****************************************************************
*** INDICATORS = 03 END THE JOB
****************************************************************
*** FILE SPECIFICATION
****************************************************************
FCUSSCRMPCF E WORKSTN
C****************************************************************
C* MAINLINE
C*************************************************************
C EXSR HEADNG
C EXFMTCHOICE
C *IN03 DOWEQ'0'
C OPTION CASEQ1 CALADD
C OPTION CASEQ2 CALUPD
C OPTION CASEQ3 CALDEL
C ENDCS
C EXSR HEADNG
C EXFMTCHOICE
C ENDDO
C MOVE *ON *INLR
C************************************************************
C* SUBROUTINE - CALADD
C* PURPOSE - TO CALL SUB-PROGRAM TO ADD A NEW CUSTOMER RECORD
C************************************************************
C CALADD BEGSR
C CALL 'ADD2SP'
C FREE 'ADD2SP'
C ENDSR
C************************************************************
C* SUBROUTINE - CALUPD
C* PURPOSE - TO CALL SUB-PROGRAM TO UPDATE A CUSTOMER RECORD
C************************************************************
C CALUPD BEGSR
C CALL 'UPD2SP'
C FREE 'UPD2SP'
C ENDSR
C************************************************************
C* SUBROUTINE - CALDEL
C* PURPOSE - TO CALL SUB-PROGRAM TO DELETE A CUSTOMER RECORD
C************************************************************
C CALDEL BEGSR
C CALL 'DEL2SP'
C FREE 'DEL2SP'
C ENDSR
C************************************************************
C* SUBROUTINE - HEADNG
C* PURPOSE - TO DISPLAY HEADING AND FOOTING SCREENS
C************************************************************
C HEADNG BEGSR
C WRITEFOOT
C WRITEHDRSCN
C ENDSR
C************************************************************