
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)
Содержание NonStop Pathway/iTS
Страница 20: ...About This Manual NonStop Pathway iTS Management Programming Manual 426749 002 xviii Change Bar Notation ...
Страница 28: ...Introduction NonStop Pathway iTS Management Programming Manual 426749 002 1 8 SPI Interface ...
Страница 100: ...ZPWY DDL Definitions NonStop Pathway iTS Management Programming Manual 426749 002 5 26 Simple Tokens ...
Страница 180: ...ZPWY MAP Definitions NonStop Pathway iTS Management Programming Manual 426749 002 6 80 ZPWY MAP TELLNUM ...
Страница 270: ...PROG Commands NonStop Pathway iTS Management Programming Manual 426749 002 9 20 START PROG ...
Страница 480: ...TCP Event Messages NonStop Pathway iTS Management Programming Manual 426749 002 11 202 ...
Страница 672: ...Error Handling Example Program NonStop Pathway iTS Management Programming Manual 426749 002 14 28 ...
Страница 694: ...Index NonStop Pathway iTS Management Programming Manual 426749 002 Index 22 Special Characters ...