File: hlp_lib_next.com

package info (click to toggle)
unzip 6.0-16%2Bdeb8u3
  • links: PTS
  • area: main
  • in suites: jessie
  • size: 8,768 kB
  • ctags: 10,194
  • sloc: ansic: 55,133; cpp: 4,084; makefile: 2,517; asm: 1,789; cs: 1,012; sh: 119
file content (16 lines) | stat: -rw-r--r-- 396 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
$!                                              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
$!