.; [1,2]INITNB0.CMD
.;
.ENABLE SUBSTITUTION
.TESTDEVICE NB0:
.PARSE <EXSTRI> "," NB0DEV REST
ALL NB0:
.DISABLE DISPLAY
.ASK ANS Spin up a new pack for nightly backup in 'NB0DEV', then press Return
.ENABLE DISPLAY
INI NB0:'<NETNOD>'BACKUP
.IF <EXSTAT> EQ 1 .GOTO 1$
.DISABLE QUIET
;
; ERROR - could not initialize new incremental backup pack.  The pack
;	  will have to be initialized before it is used as an incremental
;	  backup pack.  A file LB0:[1,2]INITBCKUP.CMD will be provided
;	  for you to use when a pack to be used for incremental backup
;	  is ready on the nightly backup drive (NB0:).
;
.ENABLE QUIET
.; make file for later initialization of nightly backup pack
.OPEN [1,2]INITBCKUP.CMD
.DATA .; Initialize new nightly backup pack on drive NB0:
.DATA .ENABLE SUBSTITUTION
.DATA .TESTDEVICE NB0:
.DATA .PARSE <EXSTRI> "," NB0DEV REST
.DATA .ASK ANS Is pack in drive 'NB0DEV' to be initialized (erased) for nightly backups
.DATA .IFF ANS .EXIT
.DATA INI NB0:'<NETNOD>'BACKUP
.DATA .IF <EXSTAT> NE 1 .EXIT
.DATA .ENABLE QUIET
.DATA PIP LB0:[1,2]INITBCKUP.CMD;/DE
.CLOSE
.GOTO DONE
.;
.1$:
.; reflect the new backup pack's initialization date
MOU NB0:/OVR
UFD NB0:[2,24]
.OPEN NB0:[2,24]INITDATE.DAT
.DATA Pack initialized as a BACKUP pack :
.DATA '<DATE>'
.CLOSE
DMO NB0:
.;
.DONE:
.;
