CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE EEXIT
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE 'SY:ENTRY.CMN'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL UVT100(ED,2)
      CALL UVT100(SCA,0)
      CALL UVT100(SCA,1)
C
CCC   IF IN CHECK MODE - CLOSE UNIT 1 
      IF (MODE.EQ.CHECK) THEN
        CALL UVT100(CUP,1,33)
        WRITE(4,*) 'CHECKS SAVED'
        CLOSE (UNIT=1, DISP='KEEP')
        GOTO 325
      END IF
C
CCC   SET UP OUTPUT FILE NAME (2ND QUALIFIER OF NAME IS 'OUT')
CCC   FINAL NAME IS 'SY:AN.OUT'  ('AN' FOR ALPHA-NUMERIC)
      FILNAM(NAMLEN+4) = '.'
      FILNAM(NAMLEN+5) = 'O'
      FILNAM(NAMLEN+6) = 'U'
      FILNAM(NAMLEN+7) = 'T'
C
      LEN = (RECLEN/4) + 2
      IF (MODE.EQ.MODIFY) THEN
        OPEN (UNIT=2, NAME=FILNAM, FORM='UNFORMATTED', RECL=LEN,
     *        RECORDTYPE='FIXED', STATUS='UNKNOWN', INITIALSIZE=100,
     *        EXTENDSIZE=50, DISP='KEEP')
      ELSE IF (MODE.EQ.ENTER) THEN
        OPEN (UNIT=2, NAME=FILNAM, FORM='UNFORMATTED', RECL=LEN,
     *        RECORDTYPE='FIXED', STATUS='UNKNOWN', ACCESS='APPEND',
     *        INITIALSIZE=100, EXTENDSIZE=50, DISP='KEEP')
      END IF
C
      CALL UVT100(CUP,24,2)
      WRITE(4,3025)
 3025 FORMAT('WRITING OUTPUT FILE')
      CALL UVT100(SCA,5)
      CALL UVT100(CUP,24,73)
      WRITE(4,3075)
 3075 FORMAT('WORKING')
      CALL UVT100(CUP,24,1)
      CALL WRITES(BUFFER,RECLEN,NUMREC)
C
      CALL UVT100(ED,2)
      CALL UVT100(SCA,0)
      CALL UVT100(SCA,1)
      CALL UVT100(CUP,9,28)
      WRITE(4,303)
  303 FORMAT('***************************')
      CALL UVT100(CUP,10,28)
      WRITE(4,305) NUMINP
  305 FORMAT('* RECORDS ENTERED:  ', I5, ' *')
      CALL UVT100(CUP,11,28)
      WRITE(4,307) NUMDEL
  307 FORMAT('* RECORDS DELETED:  ', I5, ' *')
      CALL UVT100(CUP,12,28)
      WRITE(4,309) NUMCHA
  309 FORMAT('* RECORDS CHANGED:  ', I5, ' *')
      CALL UVT100(CUP,13,28)
      WRITE(4,311) NUMREC
  311 FORMAT('* RECORDS WRITTEN:  ', I5, ' *')
      CALL UVT100(CUP,14,28)
      WRITE(4,303)
C
      CLOSE (UNIT=1, DISP='DELETE')
      CLOSE (UNIT=2, DISP='KEEP')
      IF (PRTFLG.EQ.YES) CLOSE (UNIT=3)
C
  325 TCACR(2) = 1
      CALL GETADR(PRL,TCACR)
      PRL(2)   = 2
      CALL WTQIO(SFSMC,4,2,,,PRL)
      CALL UVT100(SCA,0)
      CALL UVT100(KEYPAD,0)
C
      RETURN
      END