File: hlp_lib_next.com

package info (click to toggle)
zip 3.0-12
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 6,000 kB
  • sloc: ansic: 50,445; asm: 3,907; makefile: 858; sh: 42
file content (17 lines) | stat: -rw-r--r-- 397 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
$!