* 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
****************************************************************
FCUSTOMERO E 10 PRINTER
FCUSMSTL UF E K DISK
FCUSFMT2 CF E WORKSTN
****************************************************************
* MAIN CODE
****************************************************************
* WRITE HEADING AND FOOTING + PROMPT FOR CUST NO.
C EXSR HDR
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 WRITEBEFORE
C WRITEDETAIL
C EXFMTCUSFLDS
C WRITEAFTER
C UPDATCUSREC
C WRITEDETAIL
C ENDIF
C *IN03 IFEQ '0'
C *IN99 CASEQ'0' HEADNG
C ENDCS
C* EXSR HEADNG
C EXFMTCUSPMT
C ENDIF
C ENDDO
C WRITEENDREP
C SETON LR
************************************************************
* SUBROUTINE - HEADNG
* PURPOSE - TO DISPLAY HEADING SCREENS WITH F3 OPTION
************************************************************
C HEADNG BEGSR
C WRITEFOOTER
C WRITECUSHDG
C ENDSR
************************************************************
C* SUBROUTINE: PG
C* PURPOSE: POSSIBLE NEW PAGE
C*****************************************************************
C PG BEGSR
C *IN10 IFEQ '1'
C EXSR HDR
C SETOF 10
C ENDIF
C ENDSR
C*****************************************************************
C* SUBROUTINE: HDR
C* PURPOSE: HEADER LINES
C*****************************************************************
C HDR BEGSR
C WRITEHEADER
C WRITECOLHDG
C ENDSR
C*****************************************************************