TS/MP 2.5 Management Programming Manual

PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZSERVERCLASS OF ZPWY-DDL-SEL-SCASSIGN
MOVE WS-PROGRAM-UNIT TO ZPROGRAMUNIT OF ZPWY-DDL-SEL-SCASSIGN
MOVE WS-LOGICAL-FILE TO ZLOGICALFILE OF ZPWY-DDL-SEL-SCASSIGN
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-SCASSIGN,
ZPWY-DDL-SEL-SCASSIGN
GIVING WS-SS-RESULT
MOVE "SSPUT of ZPWY-DDL-SEL-SCASSIGN" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
3300-SELECT-SCPROCESS.
MOVE "3300-SELECT-SCPROCESS" TO WS-PARA-NAME
* 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-SCPROCESS
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
.
/
3800-ISSUE-PATHMON-COMMAND.
IF OK-TO-CONTINUE THEN
READ PATHMON-FILE WITH PROMPT ZPWY-DDL-MSG-BUFFER
IF OK-TO-CONTINUE THEN
* Protect against a long buffer being returned by a server.
MOVE ZPWY-VAL-BUFLEN TO Z-BUFLEN OF ZPWY-DDL-MSG-BUFFER
* Get the RETCODE token.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-RETCODE,
WS-SPI-RESULT
GIVING WS-SS-RESULT
STRING WS-PARA-NAME DELIMITED BY SPACE
" - 3800-ISSUE-PATHMON-COMMAND" DELIMITED BY SIZE
INTO WS-PARA-NAME
MOVE "SSGET of ZSPI-TKN-RETCODE" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
END-IF
IF OK-TO-CONTINUE THEN
* Evaluate the Pathway error, if any.
EVALUATE WS-SPI-RESULT
334 Management Programming Examples