HECNET-NODENAMES-UPDATE.COM | HECNET-SCAN-BATCH.COM | A OpenVMS DCL script to map and report HECNET (the Hobbyisy DECNET) nodes in HTML files for WASD VMS Web Server | http://supratim-sanyal.blogspot.com/2016/11/yet-another-openvms-dcl-command.html Raw

HECNET-NODENAMES-UPDATE.COM

$! Runs at 5 AM system time every day to copy nodenames.dat from MIM:: to DUA2:[FAL$SERVER]
$ set noon
$ mynameis = f$environment("PROCEDURE")
$ goto 'f$mode()'
$interactive:
$ on warning then goto submit_error
$ submit /after="tomorrow+5:00"/noprint/keep 'mynameis'
$ write sys$output "Periodic job has been requeued"
$ exit
$network:
$other:
$ write sys$output "Unable to process commands in this mode"
$ exit
$submit_error:
$ set noon
$! mail nla0: system /subject="Nightly batch job has encountered an error"
$ exit
$batch:
$ on warning then goto submit_error
$ submit /after="tomorrow+5:00"/noprint/keep 'mynameis'
$ set noon
$! now for what we were created for, include the DCL commands to execute daily
$!
$ set proc/priv=all
$ copy mim::nodenames.dat dua2:[fal$server]
$ exit