TS/MP 2.5 Management Programming Manual

OTHERWISE]
|1| [#CASE [#ARGUMENT END OTHERWISE]
|1| [#IF [#MATCH [T^svr^name] [ast^]] |THEN|
#OUTPUT You can only ADD/ALTER one server at a time !!!
#OUTPUT Please enter a valid server name................
#RESULT 0
|ELSE|
#SET cont^true 0
[#IF ([#CHARCOUNT T^svr^name] > 15) |THEN|
#RESULT 0
#OUTPUT ERROR Server name > 15 characters:[T^svr^name]
|ELSE|
== now make sure the server name starts with an
== alphanumeric character.
#SET svr^name [T^svr^name]
#SET scname^length [#CHARCOUNT T^svr^name]
SINK [#CHARDEL T^svr^name 2 to [scname^length]]
[#IF [#CHARFIND check^var 1 [T^svr^name]] |THEN|
#RESULT -1
|ELSE|
#RESULT 0
#OUTPUT Server name invalid: [svr^name]
] == end if charfind check^var 1 [t^svr^name] ...
] == end if charcount T^svr^name ...
] == end if match [T^svr^name] [ast^] ...
|OTHERWISE|
#RESULT 0
#OUTPUT Unexpected argument in [#ROUTINENAME]: [#REST]
] == #case [#argument end otherwise]
|OTHERWISE|
[#IF [#EMPTYV T^svr^name] |THEN|
#RESULT 0
#OUTPUT You must supply a valid server name !!!!
|ELSE|
#RESULT 0
#OUTPUT Unexpected argument in [#ROUTINENAME]: [#REST]
] == end if [emptyv t^filename] .....
] == case [argument /text T^svr^name/ ......
#UNFRAME
] == end def r_format_server_name .....
== Enter call routines to ensure that the PMONNAME, server name, and command
== are correct.
[#IF [#EMPTY %*%] |THEN|
#OUTPUT The correct syntax to add/alter a server class is:
#OUTPUT SPISCAA $PATHMONNAME COMMAND SERVERNAME
|ELSE|
[#IF [r_valid_pmonname %1%] |THEN|
[#IF [r_command_ok %2%] |THEN|
[#IF [r_format_server_name %3%] |THEN|
== Load the ZSPITACL and ZPWYTACL token definitions. These definitions
== can also be loaded into a TACL SEGMENT file and attached to the user’s
== environment. This saves considerable time if this macro is used
== regularly. The files ZSPITACL and ZPWYTACL must reside on $DSV.ZSPIDEF.
[#IF NOT ([#FILEINFO/ EXISTENCE / $SYSTEM.ZSPIDEF.ZSPITACL] AND
[#FILEINFO/ EXISTENCE / $SYSTEM.ZSPIDEF.ZPWYTACL]) |THEN|
#OUTPUT *ERROR* Unable to load ZPWYTACL or ZSPITACL definition files
#OUTPUT *ERROR* Insure that these files reside on $SYSTEM.ZSPIDEF...
|ELSE|
#OUTPUT Loading ZSPITACL DDL
#LOAD / LOADED X^ / $SYSTEM.ZSPIDEF.ZSPITACL == copy tacl spi ddl defs
#OUTPUT Loading ZPWYTACL DDL
#LOAD / LOADED Y^ / $SYSTEM.ZSPIDEF.ZPWYTACL == copy tacl pwy ddl defs
== Define the SPI buffer.
[#def spi^buf struct like zpwy^ddl^msg^buffer;]
Adding or Altering a Server 337