Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-5
Configuring Pathway/iTS
300-START-PATHMON.
* Get a process name for PATHMON.
ENTER TAL "CREATEPROCESSNAME"
USING WS-PATHMON-PROCESS-NAME
* Start a named PATHMON process.
ENTER "CREATEPROCESS" IN COBOL-LIB
USING WS-PATHMON-PROGRAM-FILE,
WS-PATHMON-PROCESS-NAME,
WS-PATHMON-CREATE-OPTION,
OMITTED,
WS-PRIMARY-CPU
GIVING WS-COBOL-RESULT
PERFORM 3900-CHECK-COBOL-ERROR
.
400-OPEN-PATHMON.
* Assign the named PATHMON process to the FD-name.
MOVE SPACES TO WS-FILE-NAME
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
USING PATHMON-FILE,
WS-EXTERNAL-FILE-NAME
GIVING WS-COBOL-RESULT
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 700-ADD-TCP
PERFORM 800-ADD-TERM
PERFORM 1200-ADD-PROGRAM
END-IF
.
600-CONFIGURE-PATHWAY.
* 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
Example 13-1. Pathway/iTS Configuration Program (page 4 of 13)