* PROGRAM ID : UPD
* PROG NAME : UPDATE CUSTOMER RECORD
* AUTHORS : FERGAL COTT / MARIA O'BRIEN
* DATE : JUNE 1998
* DATE MODIFIED :
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
****************************************************************
*** INDICATORS = 12 CANCEL
*** 99 CHAIN
*** 03 END THE JOB
****************************************************************
*** FILE SPECIFICATION
****************************************************************
FCUSMSTL2UF E K DISK
FCUSSCR4 CF E WORKSTN
C****************************************************************
C* MAINLINE
C****************************************************************
C SETON 99
C EXSR HEAD
C *IN99 DOWEQ'1'
C *IN03 ANDEQ'0'
C EXFMTPROMPT
C CUST CHAINCUSREC 99
C *IN99 IFEQ '0'
C EXSR HEAD2
C EXFMTCUSUPD
C *IN12 IFEQ '0'
C UPDATCUSREC
C ELSE
C EXCPTRLS
C ENDIF
C ENDIF
C ENDDO
C MOVE '1' *INLR
C****************************************************************
* SUBROUTINE - HEAD
* PURPOSE - TO DISPLAY FOOTER,HEADER AND CUST NO SCREEN
************************************************************
C HEAD BEGSR
C WRITEFOOT1
C WRITEHDRSCN
C ENDSR
C****************************************************************
* SUBROUTINE - HEAD2
* PURPOSE - TO DISPLAY FOOTER AND HEADER WITH F12 CANCEL
************************************************************
C HEAD2 BEGSR
C WRITEFOOT2
C WRITEHDRSCN
C ENDSR
************************************************************
OCUSREC E RLS