HP NonStop Pathway/iTS Programming Manual page 635

Management Programming Examples
Example 13-1. Pathway/iTS Configuration Program (page 8 of 13)
* Set appropriate PROGRAM definition values.
MOVE "TCP-SPI" TO ZTCP OF ZPWY-DDL-DEF-PROG
MOVE WS-COBOL-VAL-OFF TO ZTMF OF ZPWY-DDL-DEF-PROG
* Put the PROGRAM definition into the buffer.
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Issue the ADD PROG command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
IF OK-TO-CONTINUE THEN
* Add two PROGRAM TERMs.
PERFORM 1300-ADD-PROGRAM-TERMS
END-IF
.
1300-ADD-PROGRAM-TERMS.
MOVE "T16-6520" TO OBJECT-NAME-2 OF WS-SPI-INPUT
PERFORM 1400-ADD-PROGRAM-TERM
MOVE "T16-6530" TO OBJECT-NAME-2 OF WS-SPI-INPUT
PERFORM 1400-ADD-PROGRAM-TERM
.
1400-ADD-PROGRAM-TERM.
* Construct the ADD PROGTERM command.
MOVE ZPWY-CMD-ADD
MOVE ZPWY-OBJ-PROGTERM TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the PROGRAM TERM.
PERFORM 3000-SELECT-PROGTERM
* Clear the PROGRAM TERM definition.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-PROGTERM,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Set appropriate PROGRAM TERM definition values.
MOVE "INITIAL-SPI" TO ZINITIAL
MOVE WS-COBOL-VAL-OFF TO ZTRAILINGBLANKS OF ZPWY-DDL-DEF-PROGTERM
NonStop Pathway/iTS Management Programming Manual—426749-002
ZPWY-MAP-DEF-PROG,
ZPWY-DDL-DEF-PROG
TO COMMAND
ZPWY-DDL-DEF-PROGTERM
13- 9
Configuring Pathway/iTS
OF WS-SPI-INPUT
OF ZPWY-DDL-DEF-PROGTERM