ServerNet Cluster Manual

TACL Macro for Configuring MSGMON, SANMAN,
and SNETMON
ServerNet Cluster Manual—520575-003
E-3
Example Macro
#output Based on the number of processors currently running, it appears
#output that this system has a total of [numProcessors] processors.
[#loop
|DO|
#set parseTest [parseResponse &
[#input Is this the correct number of processors? (YES/NO/QUIT)]]
[#if parseTest = 4 |THEN| #return]
|UNTIL| parseTest = 2 or parseTest = 3]
== Does the user want to specify the number of processors?
[#if parseTest = 3
|THEN|
[#loop
|DO|
#set numProcessors &
[#input Please enter the total number of processors or QUIT->]
#set parseTest [parseResponse [numProcessors]]
[#if parseTest = 4 |THEN| #return]
|UNTIL| parseTest = 1
]
]
]
#output
#output Deleting the existing $ZPM entries...
#output
== Collect the $ZZKRN information in a variable called scf^output.
== The next time we are in SCF, we will parse that variable for
== configuration information.
scf /name, outv scf^output/ ; info process $zzkrn.*
scf /name, inline, out [#myterm]/
+ allow all errors
[#if [#charfindv scf^output 1 "SNETMON"]
|THEN|
+ abort process $zzkrn.#zzscl
#delay 200
+ delete process $zzkrn.#zzscl]
[#if [#charfindv scf^output 1 "SANMAN"]
|THEN|
+ abort process $zzkrn.#zzsmn
#delay 200
+ delete process $zzkrn.#zzsmn]
[#if [#charfindv scf^output 1 "MSGMON"]
|THEN|