HP NonStop Pathway/iTS Programming Manual page 633

Management Programming Examples
Example 13-1. Pathway/iTS Configuration Program (page 6 of 13)
* Clear the TCP definition.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-TCP,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Set appropriate TCP definition values.
MOVE 5
MOVE WS-PRIMARY-CPU TO ZPRIMARY
MOVE WS-BACKUP-CPU
* 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,
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,
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
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
NonStop Pathway/iTS Management Programming Manual—426749-002
ZPWY-DDL-DEF-TCP
TO ZMAXTERMS OF ZPWY-DDL-DEF-TCP
TO ZBACKUP
ZTCLPROG OF ZPWY-DDL-DEF-TCP,
WS-TEMPORARY-AREA
ZPWY-MAP-DEF-TCP,
ZPWY-DDL-DEF-TCP
TO COMMAND
13- 7
OF ZPWY-DDL-DEF-TCP
OF ZPWY-DDL-DEF-TCP
OF WS-SPI-INPUT
Configuring Pathway/iTS