Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-14
Configuring Pathway/iTS
* 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
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
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
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
Example 13-1. Pathway/iTS Configuration Program (page 13 of 13)