Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-10
Configuring Pathway/iTS
* Put the PROGRAM TERM definition into the buffer.
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-PROGTERM,
ZPWY-DDL-DEF-PROGTERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Issue the ADD PROGTERM command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
.
/
/
1800-TERMINATE.
SET OK-TO-CONTINUE TO TRUE
PERFORM 1900-SHUTDOWN-PATHWAY
CLOSE PATHMON-FILE
.
1900-SHUTDOWN-PATHWAY.
* Abort all TERMS.
PERFORM 2000-BUILD-ABORT-TERM-ALL
PERFORM 3600-SAVE-INITIAL-REQUEST
* Issue the ABORT TERM command.
PERFORM 2100-ABORT-TERM-CONTINUE
UNTIL NOT OK-TO-CONTINUE
IF EOF-HIT THEN
SET OK-TO-CONTINUE TO TRUE
END-IF
* Stop all TCPS.
PERFORM 2400-BUILD-STOP-TCP-ALL
PERFORM 3600-SAVE-INITIAL-REQUEST
* Issue the STOP TCP command.
PERFORM 2500-STOP-TCP-CONTINUE
UNTIL NOT OK-TO-CONTINUE
IF EOF-HIT THEN
SET OK-TO-CONTINUE TO TRUE
END-IF
* Construct the STOP PATHWAY command.
MOVE ZPWY-CMD-STOP TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-PATHWAY TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Issue the STOP PATHWAY command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
.
Example 13-1. Pathway/iTS Configuration Program (page 9 of 13)