HP NonStop Pathway/iTS

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-12
Configuring Pathway/iTS
/
2800-SELECT-COMMAND-OBJECT.
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
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
2900-SELECT-PROGRAM.
* Clear, build, and put the object-selector token for the PROGRAM
* into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-PROG,
ZPWY-DDL-SEL-PROG
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZPROGRAM OF ZPWY-DDL-SEL-PROG
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-PROG,
ZPWY-DDL-SEL-PROG
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
3000-SELECT-PROGTERM.
* Clear, build, and put the object-selector token for the PROGRAM TERM
* into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-PROGTERM,
ZPWY-DDL-SEL-PROGTERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-NAME OF WS-SPI-INPUT TO ZPROGRAM OF ZPWY-DDL-SEL-PROGTERM
MOVE OBJECT-NAME-2 OF WS-SPI-INPUT TO ZTERMTYPE OF ZPWY-DDL-SEL-PROGTERM
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-PROGTERM,
ZPWY-DDL-SEL-PROGTERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
.
Example 13-1. Pathway/iTS Configuration Program (page 11 of 13)