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