$ ! Do not edit lines beginning with `$!+`
$!+200020
$!+ 0
$!+ 16
$!+ DC:[VLT94B.RFC]RFCTEXTS.DSK
$!+ 0
$!+ 0
$ set proc/priv=(cmkrnl,sysprv,netmbx,tmpmbx)
$ sysgen:=$sysgen
$ sysman:=$sysman
$ ! Device: _ARISIA$FRA7: Size:200020  Index File Reserve:0 
$ ! Container file: DC:[VLT94B.RFC]RFCTEXTS.DSK
$ ! Mount at boot time: Y Compress:High Cache:16
$ device := FRA7:
$ m = 1
$ want = "ARISIA"
$ here = f$getsyi("nodename")
$! Add following line so this will work anywhere
$ here=want
$ if here .eqs. ""
$ then
$  if f$mode() .eqs. "INTERACTIVE"
$    then
$     write sys$output "SCSNODE parameter not set. No nodename"
$     write sys$output "Fatal, exiting"
$    endif
$ endif
$ if here .nes. want
$ then
$  if f$mode() .eqs. "INTERACTIVE"
$    then
$     write sys$output "SQUASH not starting on node"
$ write sys$output here
$     write sys$output "which is different from desired node"
$ write sys$output ""
$     write output EXITING
$    endif
$ endif
$ if here .nes. want then exit
$ if .not. f$getdvi(device,"exists") then sysgen connect 'device' /noadapter/driver=frdriver
$ device := _ARISIA$FRA7:
$ if f$getdvi(device,"refcnt") .ne. 0
$ then
$ write sys$output "%Squash-F-device busy. Exiting. ",device
$ endif
$ if f$getdvi(device,"refcnt") .ne. 0 then exit
$ if f$search("SYS$COMMON:[SYSMGR]SQUASH_ARISIA$FRA7.LOG;") .nes. "" then delete SYS$COMMON:[SYSMGR]SQUASH_ARISIA$FRA7.LOG;
$ rdtc:==run/deta/priv=(all,nobypass)/noaccount/ast_limit=50
$ if f$search("sys$manager:squashlog.tmp") .nes. "" then delete sys$manager:squashlog.tmp.
$ass/user sys$manager:squashlog.tmp sys$output
$ rdtc /buffer_limit=64000/enqueue_lim=60/io_direct=50-
  /priority=4-
  /io_buffered=50/file_limit=30/job_table_quota=1024-
  /maximum_working=1500/page_file=28000/extent=3512/uic=[1,4]-
  /input=SYS$COMMON:[SYSMGR]SQUASH_ARISIA$FRA7.DAEMON;/output=SYS$COMMON:[SYSMGR]SQUASH_ARISIA$FRA7.LOG; sys$system:loginout.exe
$ i = 0
$ open/read gtpid sys$manager:squashlog.tmp
$ xxpid=" "
$ read gtpid xxpid
$ close gtpid
$ delete sys$manager:squashlog.tmp.
$ gtpid=f$extract(53,8,xxpid)
$ on warning then goto nopidhere
$10$:
$ xxx = f$getjpi(gtpid,"pid")
$ if (f$getdvi(device,"sts") .and. 16) .ne. 0
$ then
$       if m .and. (p1 .eqs. "") then mount/system/noassist'vmntqual' 'device' RFC 
$       if m .and. (p1 .eqs. "") then directory/size/date/out=nla0: 'device'[000000]
$       exit
$ endif
$ wait 00:00:06
$ i = i + 1
$ if i .lt. 100 then goto 10$
$ xxx = f$getjpi(gtpid,"pid")
$write sys$output "%SQUASH-W-Device taking too long to go online with process active."
$ nopidhere:
$write sys$output "%SQUASH-E-Device taking too long to go online."
$ exit 4