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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-12
Configuring Pathway
1600-STATUS-SERVERCLASS-DETAIL.
MOVE "SERVER-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 1700-STATUS-SERVERCLASS
* Get the status for all server processes of the server class.
DISPLAY WS-BLANK-LINE
DISPLAY WS-STATUS-SCPROCESS-HEADER
PERFORM 2200-BUILD-STATUS-SP-ALL
PERFORM 3600-SAVE-INITIAL-REQUEST
* Issue the STATUS SCPROCESS command.
PERFORM 2300-STATUS-SCPROCESS-CONTINUE
UNTIL NOT OK-TO-CONTINUE
IF EOF-HIT THEN
SET OK-TO-CONTINUE TO TRUE
END-IF
.
1700-STATUS-SERVERCLASS.
* Construct the STATUS SC command.
MOVE ZPWY-CMD-STATUS TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-SC TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the server class.
PERFORM 3100-SELECT-SERVERCLASS
* Issue the STATUS SC cmd (ZPWY-DDL-PAR-STATUS-SC is not needed).
PERFORM 3800-ISSUE-PATHMON-COMMAND
* Display the results of the STATUS SC command.
PERFORM 2600-DISPLAY-STATUS-SC
.
/
1800-TERMINATE.
SET OK-TO-CONTINUE TO TRUE
PERFORM 1900-SHUTDOWN-PATHWAY
CLOSE PATHMON-FILE
.
1900-SHUTDOWN-PATHWAY.
* 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
.
2200-BUILD-STATUS-SP-ALL.
* Construct the STATUS SCPROCESS command.
MOVE ZPWY-CMD-STATUS TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-SCPROCESS TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the server process.
MOVE ZPWY-VAL-ALLSCPROCESS TO WS-PROCESS
PERFORM 3300-SELECT-SCPROCESS
.
Example 15-1. TS/MP Configuration Program (page 11 of 28)