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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-14
Configuring Pathway
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-STATUS-
SCPROCESS
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-SCPRO-
CESS
MOVE ZINFO OF ZPWY-DDL-STATUS-SCPROCESS TO LAST-INFO OF WS-STATUS-SCPROCESS-
DETAIL
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
.
/
Example 15-1. TS/MP Configuration Program (page 13 of 28)