diff options
Diffstat (limited to 'vms/hlp_lib_next.com')
-rw-r--r-- | vms/hlp_lib_next.com | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/vms/hlp_lib_next.com b/vms/hlp_lib_next.com new file mode 100644 index 0000000..f9b14a5 --- /dev/null +++ b/vms/hlp_lib_next.com @@ -0,0 +1,17 @@ +$! 21 November 2004. SMS. +$! +$! HLP_LIB_NEXT.COM +$! +$! Find the next available HLP$LIBRARY[_*] logical name. +$! +$ base = "HLP$LIBRARY" +$ candidate = base +$ i = 0 +$! +$ loop_top: +$ if (i .gt. 0) then candidate = base+ "_"+ f$string( i) +$ i = i+ 1 +$ if (f$trnlnm( candidate) .nes. "") then goto loop_top +$! +$ write sys$output candidate +$! |