anatomy_of_your_login-dot-com_script
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revision | Next revisionBoth sides next revision | ||
anatomy_of_your_login-dot-com_script [2018/11/21 21:27] – final tweaks lricker | anatomy_of_your_login-dot-com_script [2018/11/21 21:34] – final tweaks lricker | ||
---|---|---|---|
Line 118: | Line 118: | ||
$INTERACTIVE: | $INTERACTIVE: | ||
$ SET TERMINAL /INQUIRE /INSERT | $ SET TERMINAL /INQUIRE /INSERT | ||
+ | $ ! | ||
+ | $ CALL CreDir " | ||
$ ! | $ ! | ||
$ ! VMS-style command aliases (symbols) -- ! *** | $ ! VMS-style command aliases (symbols) -- ! *** | ||
Line 150: | Line 152: | ||
$ ! | $ ! | ||
$ EXIT ! ' | $ EXIT ! ' | ||
+ | $ ! | ||
+ | $CreDir: SUBROUTINE | ||
+ | $ ! P1 : Subdirectory to test and create | ||
+ | $ ! P2 : Job logical name to define | ||
+ | $ IF ( P2 .EQS. "" | ||
+ | $ homedd = F$TRNLNM(" | ||
+ | $ IF ( F$SEARCH("'' | ||
+ | $ THEN CREATE /DIRECTORY [.' | ||
+ | $ ENDIF | ||
+ | $ DEFINE /JOB /NOLOG ' | ||
+ | $ EXIT 1 | ||
+ | $ ENDSUBROUTINE | ||
$ ! | $ ! | ||
</ | </ | ||
The comments "! ***" mark the lines where are added to replace '' | The comments "! ***" mark the lines where are added to replace '' | ||
+ | |||
+ | This also includes a DCL subroutine, labelled '' | ||
Note that these enhancement lines were easy to add right into the appropriate '' | Note that these enhancement lines were easy to add right into the appropriate '' | ||
Line 251: | Line 267: | ||
</ | </ | ||
- | This includes a DCL subroutine, labelled | + | The '' |
==== Sys-Admin' | ==== Sys-Admin' |
anatomy_of_your_login-dot-com_script.txt · Last modified: 2018/11/21 21:54 by lricker