kolibrios/programs/fs/unzip60/vms/hlp_lib_next.com
siemargl e9b1c1bac6 unzip initial commit
git-svn-id: svn://kolibrios.org@6725 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-11-18 13:40:05 +00:00

17 lines
396 B
Plaintext

$! 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
$!