SUBROUTINE CLSCHN !IN FILE CLNUP.FOR C C The following programs are used in the RT-11 User and RT-11 C Programmer self paced instruction courses for RT-11 V4.They are also C similar to programs used in the Programming with RT-11 series for C RT-11 V5.0 or later. The name of the files are as specified in the C self paced course. C C The code is supplied as a service as Digital does not supply these C on diskette. C Any copyright is the property of Digital Equipment Corporartion C C INTEGER INCHN,OUTCHN COMMON /CHNNLS/INCHN,OUTCHN C CALL CLOSEC(INCHN) IF (ICLOSE(OUTCHN).EQ.4) CALL PRINT 1('PROTECTED OUTPUT FILE ALREADY EXISTS') RETURN END SUBROUTINE PRGCHN !IN FILE CLNUP.FOR C INTEGER INCHN,OUTCHN COMMON /CHNNLS/INCHN,OUTCHN C CALL PURGE(INCHN) CALL PURGE (OUTCHN) RETURN END