TS/MP 2.5 Management Programming Manual

== Set the ssid (subsystem ID) value, which tells SPI what product your
== system is interfacing with and the version of that product.
#SET zpwy^val^ssid [zspi^val^tandem].[zspi^ssn^zpwy].[zpwy^val^version]
== Execute SSNULL and SSINIT functions to set up the request buffer.
#SSNULL zpwy^map^sel^scdefine zpwy^ddl^sel^scdefine
#SSINIT /TYPE 0/ spi^request^buf [zpwy^val^ssid] &
[zpwy^cmd^add] /OBJECT [zpwy^obj^scdefine]/
#SSINIT /TYPE 0/ spi^reply^buf [zpwy^val^ssid] &
[zpwy^cmd^add] /OBJECT [zpwy^obj^scdefine]/
== Set the serverclass and definename in the selector token.
#SET zpwy^ddl^sel^scdefine:zname:zserverclass <serverclassname>
#SET zpwy^ddl^sel^scdefine:zname:zdefine =<definename>
== Load the selector token and DEFINE information into the SPI request
== buffer.
#SSPUTV spi^request^buf zpwy^map^sel^scdefine zpwy^ddl^sel^scdefine
#SSPUTV spi^request^buf zpwy^tkn^def^scdefine define^buf
== Open PATHMON and send the request.
[#PUSH
reply^var == holds the reply from PATHMON
io^err == holds I/O error returned during I/O with PATHMON
prompt^var == holds the input to PATHMON
] == end push
#REQUESTER /WAIT [zpwy^val^buflen]/ READ $<pathmonname>.#ZSPI io^err &
reply^var prompt^var
== Send the request buffer.
#APPENDV prompt^var spi^request^buf
== Receive the reply buffer.
#EXTRACTV reply^var spi^reply^buf
== Close PATHMON.
SINK [#REQUESTER CLOSE reply^var]
#UNFRAME
== The DEFINE is added.
Adding a Server Class DEFINE 345