TS/MP Management Programming Manual (G06.24+, H06.03+)

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-18
Configuring Pathway
* MOVE WS-PATHMON-PROCESS-NAME TO VOLUME-NAME OF WS-FILE-NAME
* MOVE "#ZSPI" TO SUBVOL-NAME OF WS-FILE-NAME
* ENTER TAL "FNAMECOLLAPSE"
* USING WS-FILE-NAME,
* WS-EXTERNAL-FILE-NAME
* GIVING WS-TEMPORARY-RESULT
*ENTER "COBOLASSIGN" IN COBOL-LIB
ENTER "COBOL_ASSIGN_"
USING PATHMON-FILE,
WS-EXTERNAL-FILE-NAME
GIVING WS-COBOL-RESULT
MOVE "COBOL_ASSIGN_" TO WS-ERROR-TEXT
PERFORM 3900-CHECK-COBOL-ERROR
IF OK-TO-CONTINUE THEN
OPEN I-O PATHMON-FILE
END-IF
.
500-MAINLINE.
PERFORM 600-CONFIGURE-PATHWAY
IF OK-TO-CONTINUE THEN
PERFORM 900-ADD-SERVERCLASS
PERFORM 1500-START-SERVERCLASS
PERFORM 1600-STATUS-SERVERCLASS-DETAIL
END-IF
.
/
600-CONFIGURE-PATHWAY.
MOVE "600-CONFIGURE-PATHWAY" TO WS-PARA-NAME
* Construct a START PATHWAY command to cold start Pathway.
MOVE ZPWY-CMD-START TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-PATHWAY TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Build and put the modifier token into the buffer.
MOVE "SSNULL of ZPWY-DDL-PAR-START-PATHWAY" TO WS-ERROR-TEXT
ENTER TAL "SSNULL"
USING ZPWY-MAP-PAR-START-PATHWAY,
ZPWY-DDL-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,
ZPWY-MAP-PAR-START-PATHWAY,
ZPWY-DDL-PAR-START-PATHWAY
GIVING WS-SS-RESULT
Example 15-1. TS/MP Configuration Program (page 17 of 28)