Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-7
Configuring Pathway/iTS
* Clear the TCP definition.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-TCP,
ZPWY-DDL-DEF-TCP
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Set appropriate TCP definition values.
MOVE 5 TO ZMAXTERMS OF ZPWY-DDL-DEF-TCP
MOVE WS-PRIMARY-CPU TO ZPRIMARY OF ZPWY-DDL-DEF-TCP
MOVE WS-BACKUP-CPU TO ZBACKUP OF ZPWY-DDL-DEF-TCP
* Point to the TCLPROG file on the current subvolume.
STRING WS-STARTUP-VOLUME DELIMITED BY SPACE
".POBJ " DELIMITED BY SIZE
INTO WS-EXTERNAL-FILE-NAME
MOVE SPACES TO WS-TEMPORARY-AREA
* Convert the file name to FNAME32 format.
ENTER TAL "FNAME32EXPAND"
USING WS-EXTERNAL-FILE-NAME,
ZTCLPROG OF ZPWY-DDL-DEF-TCP,
WS-TEMPORARY-AREA
GIVING WS-TEMPORARY-RESULT
IF WS-TEMPORARY-RESULT IS ZERO THEN
DISPLAY "FNAME32EXPAND ERROR "
SET NOT-OK-TO-CONTINUE TO TRUE
* Put the TCP definition into the buffer.
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-TCP,
ZPWY-DDL-DEF-TCP
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Issue the ADD TCP command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
.
800-ADD-TERM.
* Construct the ADD TERM command.
MOVE ZPWY-CMD-ADD TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-TERM TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the TERM.
MOVE "TERM-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 3500-SELECT-TERM
Example 13-1. Pathway/iTS Configuration Program (page 6 of 13)