TS/MP 2.5 Management Programming Manual

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
.
2300-STATUS-SCPROCESS-CONTINUE.
* Issue the STATUS SCPROCESS command for the first or
* next server process.
PERFORM 3800-ISSUE-PATHMON-COMMAND
IF OK-TO-CONTINUE THEN
PERFORM 2700-DISPLAY-STATUS-SCPROCESS
END-IF
* Merge returned context into original request, setting up the
* continuation request.
PERFORM 3700-SETUP-CONTINUATION
.
2600-DISPLAY-STATUS-SC.
* Get the object-selector token for the server class.
MOVE "2600-DISPLAY-STATUS-SC" TO WS-PARA-NAME
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-SC,
ZPWY-DDL-SEL-SC,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
MOVE "SSGET of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Get the server class STATUS definition.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-STATUS-SC,
ZPWY-DDL-STATUS-SC,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
MOVE "SSGET of ZPWY-DDL-STATUS-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
DISPLAY WS-BLANK-LINE
DISPLAY WS-STATUS-SC-HEADER
MOVE SPACES TO WS-STATUS-SC-DETAIL
MOVE ZSERVERCLASS OF ZPWY-DDL-SEL-SC TO SC-NAME OF WS-STATUS-SC-DETAIL
MOVE ZRUNNING OF ZPWY-DDL-STATUS-SC TO RUNNING OF WS-STATUS-SC-DETAIL
IF ZERROR OF ZPWY-DDL-STATUS-SC IS NOT EQUAL TO ZERROR OF NULL-STATUS-SC
MOVE ZERROR OF ZPWY-DDL-STATUS-SC TO LAST-ERROR OF WS-STATUS-SC-DETAIL
END-IF
IF ZINFO OF ZPWY-DDL-STATUS-SC IS NOT EQUAL TO ZINFO OF NULL-STATUS-SC
MOVE ZINFO OF ZPWY-DDL-STATUS-SC TO LAST-INFO OF WS-STATUS-SC-DETAIL
END-IF
EVALUATE ZFREEZESTATE OF ZPWY-DDL-STATUS-SC
WHEN ZPWY-VAL-PENDING
MOVE "FREEZE-PENDING" TO FREEZE-STATE OF WS-STATUS-SC-DETAIL
WHEN ZPWY-VAL-FROZEN
MOVE "FROZEN" TO FREEZE-STATE OF WS-STATUS-SC-DETAIL
END-EVALUATE
DISPLAY WS-STATUS-SC-DETAIL
.
2700-DISPLAY-STATUS-SCPROCESS.
MOVE "2700-DISPLAY-STATUS-SCPROCESS" TO WS-PARA-NAME
* Get the object-selector token for the server process.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-SCPROCESS,
ZPWY-DDL-SEL-SCPROCESS,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
332 Management Programming Examples