*************
* PROGRAM ID : CUSTSFL2B
* PROG NAME : CUSTOMER MASTER SEARCH
* AUTHORS : MARTIN O'SULLIVAN
* DATE : APRIL 1998
* INSTALLATION : LIT
*****************************************************************
FSTUDL2 IF E K DISK
FSTUDSRC CF E WORKSTN
F RECNUMKSFILE SUBFILE
****************************************************************
*MAIN CODE
C WRITEFOOT1
C WRITEHEAD
C EXFMTPROMPT2
C *IN03 DOWEQ'0'
C COURSN SETLLSTDREC 20
C *IN20 IFEQ *ZERO
C MOVE '1' *IN61
C ELSE
C EXSR SFLPRC
C EXSR SFLCHG
C MOVE '0' *IN61
C END
C *IN03 IFEQ '0'
C *IN04 IFEQ '0'
C *IN61 IFEQ '0'
C WRITEFOOT1
C WRITEHEAD
C END
C EXFMTPROMPT2
C END
C END
C END
C MOVE '1' *INLR
C******************************************
C SFLPRC BEGSR
C EXSR START
C EXSR CONTIN
C *IN95 IFEQ '1'
C *IN71 IFEQ '0'
C EXSR START
C ENDIF
C EXSR CONTIN
C END
C ENDSR
*******************************************
C START BEGSR
C EXSR SFLCLR
C EXSR SFLFIL
C ENDSR
C******************************************
C CONTIN BEGSR
C WRITEFOOT2
C WRITEHEAD
C EXFMTSUBCTL
C ENDSR
C******************************************
C SFLFIL BEGSR
C *IN21 DOWEQ'0'
C READESTDREC 71
C *IN71 IFEQ '1'
C MOVE '1' *IN21
C ELSE
C ADD 1 RECNUM
C WRITESUBFILE 21
C END
C END
C ENDSR
*******************************************
C SFLCLR BEGSR
C MOVE '1' *IN55
C WRITESUBCTL
C MOVE '0' *IN55
C MOVE '0' *IN21
C Z-ADD*ZERO RECNUM 50
C ENDSR
****************************************************************
C SFLCHG BEGSR
C READCSUBFILE 98
C *IN98 IFEQ '0'
C COURS# CHAINSTDREC 71
C WRITEFOOT1
C WRITEHEAD
C EXFMTCUSDSP
C ENDIF
C ENDSR