TS/MP Management Programming Manual (G06.24+, H06.03+)

NonStop TS/MP Management Programming Manual—540082-001
16-1
16 Server Class DEFINE Examples
This section provides two examples related to server class DEFINEs. Both examples
are written in the TACL programming language.
Adding a Server Class DEFINE
Example 16-1 presents a functioning SPI requester that adds a DEFINE to a server
class. No error handling is performed in this example.
To use this example in your own environment, you must supply all values enclosed in
brackets (< >). For example, you would change:
<pathmon-name>.#ZSPI
to:
$PM.#ZSPI
if $PM is the name of the PATHMON process controlling your Pathway subsystem.
Example 16-1. ADD SCDEFINE Programming Example (page1of3)
?TACL MACRO
#FRAME
== First load the SPI token definition files "ZPWYTACL" and "ZSPITACL".
== These files are usually found on $DSV.ZSPIDEF.
#PUSH X^ Y^ == Variable to load definition files into. This prevents
== TACL from running out of segment space.
#LOAD/LOADED X^/ ZPWYTACL
#LOAD/LOADED Y^/ ZSPITACL
== Add the DEFINE with its specific attributes to the TACL working set.
#DEFINESETATTR CLASS MAP
#DEFINESETATTR FILE $PQA3.MZDEFTST.DEFOUT
#DEFINEADD =<definename> 1
== Define a structure to hold the DEFINEs that are sent to PATHMON and
== received from PATHMON. The DEFINEs must be saved into the buffer prior
== to sending to PATHMON. The SDlength field of the struct will store the
== length of the DEFINE for PATHMON. The array size of 952 bytes is based
== on Pathmon's maximum saved DEFINE length.
==
== The "saved^define" structure is used to get the length of the DEFINE
== string that will be passed to PATHMON.