$ set noon
$ privs = "AUDIT, CMKRNL, EXQUOTA, LOG_IO, NETMBX, OPER, SECURITY, " + -
          "SYSNAM, SYSPRV, TMPMBX, WORLD"
$ saved_privs = f$setprv(privs)
$ if .not. f$privilege(privs)
$ then
$   saved_privs = f$setprv(saved_privs)
$   write sys$output ""
$   write sys$output "%SHUTDOWN-F-NOPRIV, the following privileges are required:
"
$   write sys$output "-SHUTDOWN-F-NOPRIV, ''privs'"
$   exit %x10360004
$ endif
$ if f$mode() .nes. "OTHER" then goto run_detached
$ @sys$system:shutdown 0 REBOOT NO YES LATER YES NONE
$ exit 1
$run_detached:
$ run sys$system:loginout -
  /process_name="Reboot" -
  /input='f$environment("procedure")'-
  /output=_nla0: -
  /uic=[1,4] -
  /priority=8 -
  /privileges=('privs')
$ saved_privs = f$setprv(saved_privs)
$ exit 1