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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-29
Configuring Pathway
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
WHEN ZPWY-VAL-OK
SET OK-TO-CONTINUE TO TRUE
WHEN ZPWY-ERR-PM-EOF
SET NOT-OK-TO-CONTINUE TO TRUE
WHEN OTHER
SET NOT-OK-TO-CONTINUE TO TRUE
* CALL PATHWAY-SPI-ERROR IN PATHWAY-UTILITIES
* USING ZPWY-DDL-MSG-BUFFER
ENTER TAL "DEBUG"
END-EVALUATE
END-IF
.
3900-CHECK-COBOL-ERROR.
IF WS-COBOL-RESULT IS NOT ZERO THEN
DISPLAY "COBOL UTILITY ERROR: "
WS-COBOL-RESULT
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
4000-CHECK-SUBSYSTEM-ERROR.
IF WS-SS-RESULT IS NOT ZERO THEN
DISPLAY "SS ERROR: "
WS-SS-RESULT
ENTER TAL "DEBUG"
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
Example 15-1. TS/MP Configuration Program (page 28 of 28)