Last active
September 27, 2017 00:45
-
-
Save tuklusan/1d37120353345c0c727a1a02477e0392 to your computer and use it in GitHub Desktop.
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
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $! Runs every seven days at 4 AM from current time to update HECnet node status HTML files served by WASD | |
| $ set noon | |
| $ mynameis = f$environment("PROCEDURE") | |
| $ goto 'f$mode()' | |
| $interactive: | |
| $ on warning then goto submit_error | |
| $ submit /after="TODAY+7-04: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="TODAY+7-04:00"/noprint/keep 'mynameis' | |
| $ set noon | |
| $! now for what we were created for, include the DCL commands scheduled to execute | |
| $! | |
| $ set proc/priv=all | |
| $ @DUA1:[SANYAL.MISC]hecnet-scan.com | |
| $! REBOOT | |
| $ exit |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment