TS/MP 2.5 Management Programming Manual

* Get the RETCODE token.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-RETCODE,
WS-SPI-RESULT
GIVING WS-SS-RESULT
STRING WS-PARA-NAME DELIMITED BY SPACE
" - 3800-ISSUE-PATHMON-COMMAND" DELIMITED BY SIZE
INTO WS-PARA-NAME
MOVE "SSGET of ZSPI-TKN-RETCODE" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
END-IF
IF OK-TO-CONTINUE THEN
* Evaluate the Pathway error, if any.
EVALUATE WS-SPI-RESULT
WHEN ZPWY-VAL-OK
SET OK-TO-CONTINUE TO TRUE
WHEN ZPWY-ERR-PM-EOF
SET NOT-OK-TO-CONTINUE TO TRUE
WHEN OTHER
SET NOT-OK-TO-CONTINUE TO TRUE
* CALL PATHWAY-SPI-ERROR IN PATHWAY-UTILITIES
* USING ZPWY-DDL-MSG-BUFFER
ENTER TAL "DEBUG"
END-EVALUATE
END-IF
.
3900-CHECK-COBOL-ERROR.
IF WS-COBOL-RESULT IS NOT ZERO THEN
DISPLAY "COBOL UTILITY ERROR: "
WS-COBOL-RESULT
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
4000-CHECK-SUBSYSTEM-ERROR.
IF WS-SS-RESULT IS NOT ZERO THEN
DISPLAY "SS ERROR: "
WS-SS-RESULT
ENTER TAL "DEBUG"
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
* 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
328 Management Programming Examples