* PROGRAM ID : ADD
* PROG NAME : ADD NEW CUSTOMER RECORD
* AUTHOR : Martin O'Sullivan
* DATE : JUNE 1998
* DATE MODIFIED : JANUARY, 1999
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
****************************************************************
*** INDICATORS = 12 CANCEL
*** 99 CHAIN
****************************************************************
*** FILE SPECIFICATION
****************************************************************
FCUSMSTL2UF E K DISK A
FCUSSCR2 CF E WORKSTN
C****************************************************************
C* MAINLINE
C*************************************************************
C EXSR HEAD
C EXFMTPROMPT
C *IN03 DOWEQ'0'
C CUST CHAINCUSREC 99
C *IN99 IFEQ '1'
C SETOF 60
C EXSR HEAD2
C EXFMTCUSBLD
C *IN03 IFEQ '0'
C *IN12 ANDEQ'0'
C WRITECUSREC
C ENDIF
C ELSE
C SETON 60
C ENDIF
C *IN60 CASEQ'0' HEAD
C ENDCS
C EXFMTPROMPT
C ENDDO
C MOVE '1' *INLR
C****************************************************************
* SUBROUTINE - HEAD
* PURPOSE - TO DISPLAY FOOTER AND HEADER
************************************************************
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
************************************************************