TS/MP 2.5 Management Programming Manual

PROCEDURE DIVISION.
100-ENTRY.
PERFORM 200-INITIALIZE
PERFORM 300-START-PATHMON
PERFORM 400-OPEN-PATHMON
PERFORM 500-MAINLINE
PERFORM 1800-TERMINATE
STOP RUN
.
200-INITIALIZE.
MOVE "200-INITIALIZE" TO WS-PARA-NAME
* Null structures for later comparisons.
MOVE "SSNULL of ZPWY-MAP-STATUS-SC" TO WS-ERROR-TEXT
ENTER TAL "SSNULL"
USING ZPWY-MAP-STATUS-SC,
NULL-STATUS-SC
GIVING WS-SS-RESULT
MOVE "SSNULL of ZPWY-MAP-STATUS-SCPROCESS" TO WS-ERROR-TEXT
ENTER TAL "SSNULL"
USING ZPWY-MAP-STATUS-SCPROCESS,
NULL-STATUS-SCPROCESS
GIVING WS-SS-RESULT
* Get the default volume.
MOVE SPACES TO WS-STARTUP-VOLUME
ENTER "SMU_Startup_GetText_"
USING WS-VOLUME-PORTION,
WS-STARTUP-VOLUME
GIVING WS-STARTUP-VOLUME-LEN
IF WS-STARTUP-VOLUME-LEN IS NOT NEGATIVE THEN
ADD 1 TO WS-STARTUP-VOLUME-LEN
ELSE
DISPLAY "SMU_Startup_GetText_ ERROR"
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
300-START-PATHMON.
MOVE "300-START-PATHMON" TO WS-PARA-NAME
ENTER TAL "CLU_Process_Create_"
* clu-options
USING 0,
WS-PATHMON-PROGRAM-FILE,
* library-file
OMITTED,
* swap-file
OMITTED,
* ext-swap-file
OMITTED,
* priority
OMITTED,
* processor
WS-PRIMARY-CPU,
* processhandle
WS-PHANDLE,
WS-ERROR-DETAIL,
* name-option 2 means Process is named; system must generate a name.
2,
* name: don't want to pass a name in, so skip it
OMITTED,
* process-descr
WS-PATHMON-PROCESS-NAME,
WS-PATHMON-PROCESS-BYTES
GIVING WS-COBOL-RESULT
MOVE "CLU_Process_Create_" TO WS-ERROR-TEXT
PERFORM 3900-CHECK-COBOL-ERROR
.
/
400-OPEN-PATHMON.
MOVE "400-OPEN-PATHMON" TO WS-PARA-NAME
* Assign the named PATHMON process to the FD-name.
* process name includes a sequence number (after ":") which isn't needed here
MOVE SPACES TO WS-FILE-NAME
STRING WS-PATHMON-PROCESS-NAME DELIMITED BY ":"
".#ZSPI" DELIMITED BY SIZE
INTO WS-EXTERNAL-FILE-NAME
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
Configuring Pathway 321