Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/chknam.for
There are no other files named chknam.for in the archive.
	SUBROUTINE CHKNAM(CHG)
C
C	DO CHECKING FOR FILE NAME AND WRITE NEW HEADER
C
	INCLUDE 'BOSS.PRM'
C
C	--SET INSTALLATION PPN (**)
C
	PPN = "20000260
C
C	--GET FILE NAME
C
	CALL MAKNAM
C
C	--SEE IF THERE
C
	IF(EXIST('DSK   ',FILEX,'BOS',PPN)) GOTO 10
C
C	--NO, START UP
C
	OPEN(UNIT=21,FILE=FILE,ACCESS='SEQOUT')
	CLOSE(UNIT=21)
	TYPE = 100
	IF (CHG .EQ. 1) GOTO 20
	WRITE(5,100)
	GOTO 20
C
C	--CRASH RESTART
C
10	TYPE = 200
	WRITE(5,200)
C
C	--UPDATE FILE
C
20	CALL DMPREC(TYPE)
	RETURN
100	FORMAT(' [BOSS START UP]')
200	FORMAT(' [BOSS: CONTINUATION]')
	END