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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-28
Configuring Pathway
* Clear, build, and put the object-selector token for the
* server process into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-SCPROCESS,
ZPWY-DDL-SEL-SCPROCESS,
GIVING WS-SS-RESULT
MOVE "SSNULL of ZPWY-DDL-SEL-SCPROCESS" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZSERVERCLASS OF ZPWY-DDL-SEL-SCPRO-
CESS
MOVE WS-PROCESS TO ZPROCESS OF ZPWY-DDL-SEL-SCPROCESS
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-SCPROCESS,
ZPWY-DDL-SEL-SCPROCESS
GIVING WS-SS-RESULT
MOVE "SSPUT of ZPWY-DDL-SEL-SCPROCESS" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
3600-SAVE-INITIAL-REQUEST.
* Save the initial request. It will be used in continuation
* requests by adding the continuation context token.
MOVE ZPWY-DDL-MSG-BUFFER TO REQUEST-SAVE-BUFFER
.
3700-SETUP-CONTINUATION.
MOVE "3700-SETUP-CONTINUATION" TO WS-PARA-NAME
* Move the context token from reply to the saved initial request,
* thus building a continuation request.
ENTER TAL "SSMOVE"
USING ZSPI-TKN-CONTEXT,
ZPWY-DDL-MSG-BUFFER,
WS-FIRST-OCCURRENCE,
REQUEST-SAVE-BUFFER,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
MOVE "SSMOVE" TO WS-ERROR-TEXT
EVALUATE WS-SS-RESULT
WHEN ZERO
* Move continuation request to I/O area.
MOVE REQUEST-SAVE-BUFFER to ZPWY-DDL-MSG-BUFFER
WHEN ZSPI-ERR-MISTKN
SET EOF-HIT TO TRUE
WHEN OTHER
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
END-EVALUATE
.
/
Example 15-1. TS/MP Configuration Program (page 27 of 28)