blob: 830cfc96c2abe4120a5b64a61e977fbff7602ede (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
$ VERIFY = F$Verify (0)
$!
$! ADD_LIST.COM command procedure
$! Usage:
$! ADD_LIST library file_spec [logical_name_table]
$!
$! Last Modified: 18-JAN-1991 Rick Dyson
$!
$! Escape routes
$ On Control_Y Then GoTo FINISH
$ On Error Then GoTo FINISH
$ On Warning Then GoTo FINISH
$ On Severe Then GoTo FINISH
$!
$! We're out'a here if the calling parameter is null
$ P2 = F$Edit (P2, "TRIM, UPCASE")
$ If P2 .eqs. "" Then GoTo FINISH
$!
$! Check logical name table argument and default if necessary.
$!
$ TABLE = F$Edit (P3, "UNCOMMENT, UPCASE, TRIM")
$ If (TABLE .eqs. "PROCESS")
$ Then
$ Else If (TABLE .eqs. "GROUP")
$ Then
$ Else If (TABLE .eqs. "JOB")
$ Then
$ Else If (TABLE .eqs. "SYSTEM")
$ Then
$ Else
$ TABLE = "Process"
$ EndIf
$ EndIf
$ EndIf
$ EndIf
$!
$! Check the first value in the library list
$ LIB = P1
$ X = F$TrnLnm (LIB, "LNM$''TABLE'")
$ If X .eqs. "" Then GoTo INSERT
$ If X .eqs. P2 Then GoTo FINISH
$!
$! Find the first free logical to assign the library file to
$ BASE = P1 + "_"
$ N = 1
$NEXTLIB:
$ LIB := 'BASE''N'
$ X = F$TrnLnm (LIB, "LNM$''TABLE'")
$ If X .eqs. "" Then GoTo INSERT
$ If X .eqs. P2 Then GoTo FINISH
$ N = N + 1
$ GoTo NEXTLIB
$!
$! Add the library file to the library file list
$INSERT:
$ Define /'TABLE' 'LIB' 'P2'
$FINISH:
$ VERIFY = F$Verify (VERIFY)
$ Exit
|
