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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-23
Configuring Pathway
* Issue the ADD SCASSIGN command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
.
/
1500-START-SERVERCLASS.
MOVE "1500-START-SERVERCLASS" TO WS-PARA-NAME
* Construct the START SC command.
MOVE ZPWY-CMD-START 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.
MOVE "SERVER-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 3100-SELECT-SERVERCLASS
* Issue the START SC command.
MOVE "1500-START-SERVERCLASS" TO WS-PARA-NAME
PERFORM 3800-ISSUE-PATHMON-COMMAND
* If no spi error and start failed with newprocess error, go on
IF WS-SPI-RESULT = ZPWY-ERR-PM-NEWPROCESS AND WS-SS-RESULT = ZSPI-ERR-OK
SET OK-TO-CONTINUE TO TRUE
END-IF
.
/
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
Example 15-1. TS/MP Configuration Program (page 22 of 28)