HP NonStop Pathway/iTS Programming Manual page 632

Management Programming Examples
Example 13-1. Pathway/iTS Configuration Program (page 5 of 13)
* Build and put the modifier token into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-PAR-START-PATHWAY,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE WS-COBOL-VAL-YES TO ZIGNORE OF ZPWY-DDL-PAR-START-PATHWAY
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Build and put the Pathway definition into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-PATHWAY,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE WS-BACKUP-CPU
MOVE WS-COBOL-VAL-ON TO ZDUMP
MOVE 5
MOVE 5
MOVE 5
MOVE 5
MOVE 10
MOVE 5
MOVE 5
MOVE 5
MOVE 10
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
IF OK-TO-CONTINUE THEN
* Issue the START PATHWAY command for a cold start.
PERFORM 3800-ISSUE-PATHMON-COMMAND
END-IF
.
/
700-ADD-TCP.
* Construct the ADD TCP command.
MOVE ZPWY-CMD-ADD TO COMMAND
MOVE ZPWY-OBJ-TCP TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the TCP:
MOVE "TCP-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 3400-SELECT-TCP
NonStop Pathway/iTS Management Programming Manual—426749-002
ZPWY-DDL-PAR-START-PATHWAY
ZPWY-MAP-PAR-START-PATHWAY,
ZPWY-DDL-PAR-START-PATHWAY
ZPWY-DDL-DEF-PATHWAY
TO ZBACKUPCPU
TO ZMAXASSIGNS
TO ZMAXPARAMS
TO ZMAXPROGRAMS
TO ZMAXSERVERCLASSES
TO ZMAXSERVERPROCESSES OF ZPWY-DDL-DEF-PATHWAY
TO ZMAXSPI
TO ZMAXSTARTUPS
TO ZMAXTCPS
TO ZMAXTERMS
ZPWY-MAP-DEF-PATHWAY,
ZPWY-DDL-DEF-PATHWAY
13- 6
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF ZPWY-DDL-DEF-PATHWAY
OF WS-SPI-INPUT
Configuring Pathway/iTS