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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-6
Configuring Pathway
* 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
Example 15-1. TS/MP Configuration Program (page 5 of 28)