* PROGRAM ID : CUSTINQ
* PROG NAME : CUSTOMER MASTER ENQUIRY
* AUTHORS : Martin O'Sullivan
* DATE : JUNE 1998
* DATE MODIFIED : JANUARY, 1999
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
****************************************************************
*** INDICATORS = 03 EXIT
*** 99 CHAIN
****************************************************************
*** FILE SPECIFICATION
****************************************************************
FCUSMSTL IF E K DISK
FCUSFMTX CF E WORKSTN
****************************************************************
* MAIN CODE
****************************************************************
* WRITE HEADING AND FOOTING + PROMPT FOR CUST NO.
C *IN99 CASEQ'0' HEADNG
C ENDCS
C EXFMTCUSPMT
* MAIN LOOP
C *IN03 DOWEQ'0'
* DISPLAY CUSTOMER INFORMATION
C CUST CHAINCUSREC 99
C *IN99 IFEQ '0'
C EXFMTCUSFLDS
C ENDIF
C *IN03 IFEQ '0'
C *IN99 CASEQ'0' HEADNG
C ENDCS
C* EXSR HEADNG
C EXFMTCUSPMT
C ENDIF
C ENDDO
C* MOVE '1' *INLR
C SETON LR
************************************************************
* SUBROUTINE - HEADNG
* PURPOSE - TO DISPLAY HEADING SCREENS WITH F3 OPTION
************************************************************
C HEADNG BEGSR
C WRITEFOOTER
C WRITECUSHDG
C ENDSR
************************************************************