TS/MP 2.5 Management Programming Manual

MOVE WS-COBOL-VAL-YES TO ZIGNORE OF ZPWY-DDL-PAR-START-PATHWAY
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-PAR-START-PATHWAY,
ZPWY-DDL-PAR-START-PATHWAY
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Build and put the Pathway definition into the buffer.
MOVE "SSNULL of ZPWY-DDL-DEF-PATHWAY" TO WS-ERROR-TEXT
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-PATHWAY,
ZPWY-DDL-DEF-PATHWAY
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
MOVE WS-BACKUP-CPU TO ZBACKUPCPU OF ZPWY-DDL-DEF-PATHWAY
MOVE WS-COBOL-VAL-ON TO ZDUMP OF ZPWY-DDL-DEF-PATHWAY
MOVE 5 TO ZMAXASSIGNS OF ZPWY-DDL-DEF-PATHWAY
MOVE 0 TO ZMAXEXTERNALTCPS OF ZPWY-DDL-DEF-PATHWAY
MOVE 5 TO ZMAXPARAMS OF ZPWY-DDL-DEF-PATHWAY
MOVE 0 TO ZMAXPROGRAMS OF ZPWY-DDL-DEF-PATHWAY
MOVE 5 TO ZMAXSERVERCLASSES OF ZPWY-DDL-DEF-PATHWAY
MOVE 10 TO ZMAXSERVERPROCESSES OF ZPWY-DDL-DEF-PATHWAY
* ZMAXSPI is type ZPWY-DDL-1-100
* MOVE 0 TO ZMAXSPI OF ZPWY-DDL-DEF-PATHWAY
MOVE 1 TO ZMAXSPI OF ZPWY-DDL-DEF-PATHWAY
MOVE 5 TO ZMAXSTARTUPS OF ZPWY-DDL-DEF-PATHWAY
MOVE 0 TO ZMAXTCPS OF ZPWY-DDL-DEF-PATHWAY
MOVE 0 TO ZMAXTERMS OF ZPWY-DDL-DEF-PATHWAY
MOVE WS-COBOL-VAL-ON TO ZNODEINDEPENDENT OF ZPWY-DDL-DEF-PATHWAY
MOVE "SSPUT of ZPWY-DDL-DEF-PATHWAY" TO WS-ERROR-TEXT
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-PATHWAY,
ZPWY-DDL-DEF-PATHWAY
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
.
900-ADD-SERVERCLASS.
MOVE "900-ADD-SERVERCLASS" TO WS-PARA-NAME
* Get default values for the server class definition.
* First, construct the INFO SC command.
MOVE ZPWY-CMD-INFO TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-SC TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Next, put a null object-selector token for the
* server class (SC) object into the buffer.
ENTER TAL "SSNULL"
USING ZPWY-MAP-SEL-SC,
ZPWY-DDL-SEL-SC
GIVING WS-SS-RESULT
MOVE "SSNULL of ZPWY-DDL-DEF-PATHWAY" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-SEL-SC,
ZPWY-DDL-SEL-SC
GIVING WS-SS-RESULT
MOVE "SSPUT of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Next, issue the INFO SC command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
* Finally, obtain the default values for the
* server class definition.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-SC,
ZPWY-DDL-DEF-SC,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
MOVE "SSGET of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Construct the ADD SC command.
MOVE ZPWY-CMD-ADD TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-SC TO OBJECT-TYPE OF WS-SPI-INPUT
Configuring Pathway 329