SUBROUTINE CLSREN C Close file. Allow user to rename it if the name in the EOF block C is different to that with which it was opened. CHARACTER*18 REALNM INCLUDE 'ANSICOM.FTN' IF(.NOT.FILOPN) GOTO 780 IF(NREC.NE.1) THEN DECODE(17,3020,B(5)) REALNM 3020 FORMAT(A) IF(FNAME(1:17).NE.REALNM(1:17)) THEN REALNM(LEN(REALNM):LEN(REALNM))=' ' TYPE *,'File ',REALNM(1:INDEX(REALNM,' ')), * 'was opened as: ',FNAME(1:LNAME) CALL GETCHR('Rename',6,ANS,'YN',2,I) IF(I.EQ.1) THEN CALL ASSIGN(3,REALNM,17) IDS=1 CALL RENAME(2,3,IDS) IF(IDS.LT.0) TYPE 3030,IDS 3030 FORMAT(' Rename failed ',O3) END IF END IF END IF C C Enter here to close without rename option. ENTRY CLSFIL IF(FILOPN) THEN IF(NREC.EQ.1) THEN TYPE *,'!! Deleting empty file: ',FNAME CLOSE(UNIT=2,DISPOSE='DELETE') ELSE CLOSE(UNIT=2) END IF END IF 780 LNAME=0 IF(.NOT.RT11) MODE='?' FILOPN=.FALSE. COPY=.FALSE. RETURN END