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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-15
Configuring Pathway
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,
ZPWY-MAP-SEL-SC,
ZPWY-DDL-SEL-SC
GIVING WS-SS-RESULT
MOVE "SSPUT of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
3200-SELECT-SCASSIGN.
MOVE "3200-SELECT-SCASSIGN" TO WS-PARA-NAME
* Clear, build, and put the object-selector token for the
* server class ASSIGN message into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-SCASSIGN,
ZPWY-DDL-SEL-SCASSIGN
GIVING WS-SS-RESULT
MOVE "SSNULL of ZPWY-DDL-SEL-SCASSIGN" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZSERVERCLASS OF ZPWY-DDL-SEL-SCASSIGN
MOVE WS-PROGRAM-UNIT TO ZPROGRAMUNIT OF ZPWY-DDL-SEL-SCASSIGN
MOVE WS-LOGICAL-FILE TO ZLOGICALFILE OF ZPWY-DDL-SEL-SCASSIGN
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-SCASSIGN,
ZPWY-DDL-SEL-SCASSIGN
GIVING WS-SS-RESULT
MOVE "SSPUT of ZPWY-DDL-SEL-SCASSIGN" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
Example 15-1. TS/MP Configuration Program (page 14 of 28)