Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-8
Configuring Pathway/iTS
* Clear the TERM definition.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-TERM,
ZPWY-DDL-DEF-TERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Set appropriate TERM definition values.
MOVE "ENABLE-MENU" TO ZINITIAL OF ZPWY-DDL-DEF-TERM
MOVE "TCP-SPI" TO ZTCP OF ZPWY-DDL-DEF-TERM
MOVE "T16-6520" TO ZTERMTYPE OF ZPWY-DDL-DEF-TERM
* Point the FD-name for the PATHMON process to the current home terminal.
ENTER TAL "MYTERM"
USING WS-FILE-NAME
* Convert the file name from internal format to FNAME32 format.
ENTER TAL "FNAMETOFNAME32"
USING WS-FILE-NAME,
ZFILE OF ZPWY-DDL-DEF-TERM
* Put the TERM definition into the buffer.
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-TERM,
ZPWY-DDL-DEF-TERM
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Issue the ADD TERM command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
.
/
1200-ADD-PROGRAM.
* Construct the ADD PROG command.
MOVE ZPWY-CMD-ADD TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-PROG TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the PROGRAM.
MOVE "PROGRAM-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 2900-SELECT-PROGRAM
* Clear the PROGRAM definition.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-PROG,
ZPWY-DDL-DEF-PROG
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
Example 13-1. Pathway/iTS Configuration Program (page 7 of 13)