TS/MP 2.5 Management Programming Manual

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
MOVE "SSGET of ZPWY-DDL-SEL-SCPROCESS" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Get the SCPROCESS status definition.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-STATUS-SCPROCESS,
ZPWY-DDL-STATUS-SCPROCESS,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
MOVE "SSGET of ZPWY-DDL-STATUS-SCPROCESS" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE SPACES TO WS-STATUS-SCPROCESS-DETAIL
MOVE ZPROCESS OF ZPWY-DDL-SEL-SCPROCESS TO SP-NAME OF WS-STATUS-SCPROCESS-DETAIL
EVALUATE ZSTATE OF ZPWY-DDL-STATUS-SCPROCESS
WHEN ZPWY-VAL-STOPPED
MOVE "STOPPED" TO SP-STATE OF WS-STATUS-SCPROCESS-DETAIL
WHEN ZPWY-VAL-PENDING
MOVE "PENDING" TO SP-STATE OF WS-STATUS-SCPROCESS-DETAIL
WHEN ZPWY-VAL-SUSPENDED
MOVE "SUSPENDED" TO SP-STATE OF WS-STATUS-SCPROCESS-DETAIL
WHEN ZPWY-VAL-RUNNING
MOVE "RUNNING" TO SP-STATE OF WS-STATUS-SCPROCESS-DETAIL
END-EVALUATE
IF ZERROR OF ZPWY-DDL-STATUS-SCPROCESS IS NOT EQUAL TO ZERROR OF NULL-STATUSSCPROCESS
MOVE ZERROR OF ZPWY-DDL-STATUS-SCPROCESS TO LAST-ERROR OF
WS-STATUS-SCPROCESS-DETAIL
END-IF
IF ZINFO OF ZPWY-DDL-STATUS-SCPROCESS IS NOT EQUAL TO ZINFO OF NULL-STATUS-SCPROCESS
MOVE ZINFO OF ZPWY-DDL-STATUS-SCPROCESS TO LAST-INFO OF WS-STATUS-SCPROCESSDETAIL
END-IF
MOVE ZLINKS OF ZPWY-DDL-STATUS-SCPROCESS TO LINKS OF WS-STATUS-SCPROCESS-DETAIL
MOVE ZWEIGHT OF ZPWY-DDL-STATUS-SCPROCESS TO WEIGHT OF WS-STATUS-SCPROCESS-DETAIL
DISPLAY WS-STATUS-SCPROCESS-DETAIL
.
/
2800-SELECT-COMMAND-OBJECT.
MOVE "2800-SELECT-COMMAND-OBJECT" TO WS-PARA-NAME
ENTER TAL "SSINIT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-VAL-BUFLEN,
ZPWY-VAL-SSID,
ZSPI-VAL-CMDHDR,
COMMAND OF WS-SPI-INPUT,
OBJECT-TYPE OF WS-SPI-INPUT
GIVING WS-SS-RESULT
MOVE "SSINIT of ZPWY-DDL-MSG-BUFFER" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
3100-SELECT-SERVERCLASS.
MOVE "3100-SELECT-SERVERCLASS" TO WS-PARA-NAME
* Clear, build, and put the object-selector token for the
* server class into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-SC,
ZPWY-DDL-SEL-SC
GIVING WS-SS-RESULT
MOVE "SSNULL of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZSERVERCLASS OF ZPWY-DDL-SEL-SC
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
326 Management Programming Examples