Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-9
Configuring Pathway/iTS
* 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,
ZPWY-MAP-DEF-PROG,
ZPWY-DDL-DEF-PROG
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 TO COMMAND OF WS-SPI-INPUT
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,
ZPWY-DDL-DEF-PROGTERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Set appropriate PROGRAM TERM definition values.
MOVE "INITIAL-SPI" TO ZINITIAL OF ZPWY-DDL-DEF-PROGTERM
MOVE WS-COBOL-VAL-OFF TO ZTRAILINGBLANKS OF ZPWY-DDL-DEF-PROGTERM
Example 13-1. Pathway/iTS Configuration Program (page 8 of 13)