* PROGRAM ID : CUSMAINT
* PROG NAME : CUSTOMER MASTER MAINTENCE
* PROGRAM TO CALL ADD, DELETE, UPDATE SUBPROG
* AUTHORS : FERGAL COTT / MARIA O'BRIEN
* DATE : JUNE 1998
* DATE MODIFIED : FEBRUARY 199
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
****************************************************************
*** INDICATORS = 03 END THE JOB
****************************************************************
*** FILE SPECIFICATION
****************************************************************
FSTDMAIN CF 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 'STDADSP'
C FREE 'STDADSP'
C ENDSR
C************************************************************
C* SUBROUTINE - CALUPD
C* PURPOSE - TO CALL SUB-PROGRAM TO UPDATE A CUSTOMER RECORD
C************************************************************
C CALUPD BEGSR
C CALL 'STDUPDSP'
C FREE 'STDUPDSP'
C ENDSR
C************************************************************
C* SUBROUTINE - CALDEL
C* PURPOSE - TO CALL SUB-PROGRAM TO DELETE A CUSTOMER RECORD
C************************************************************
C CALDEL BEGSR
C CALL 'STDDELSP'
C FREE 'STDDELSP'
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************************************************************