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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-21
Configuring Pathway
END-IF
* Point the startup volume to the current subvolume.
STRING WS-STARTUP-VOLUME DELIMITED BY SPACE
".X " DELIMITED BY SIZE
INTO WS-EXTERNAL-FILE-NAME
MOVE SPACES TO WS-TEMPORARY-AREA
* Convert the file name to internal format.
ENTER TAL "FNAMEEXPAND"
USING WS-EXTERNAL-FILE-NAME,
WS-FILE-NAME,
WS-TEMPORARY-AREA
GIVING WS-TEMPORARY-RESULT
IF WS-TEMPORARY-RESULT IS ZERO THEN
DISPLAY "FNAMEEXPAND ERROR "
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
MOVE VOLUME-NAME OF WS-FILE-NAME TO Z-VOLUME OF ZDEFAULTVOLUME OF ZPWY-
DDL-DEF-SC
MOVE SUBVOL-NAME OF WS-FILE-NAME TO Z-SUBVOLUME OF ZDEFAULTVOLUME OF
ZPWY-DDL-DEF-SC
* Put the server class definition into the buffer.
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-SC,
ZPWY-DDL-DEF-SC
GIVING WS-SS-RESULT
MOVE "SSPUT of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Issue the ADD SC command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
IF OK-TO-CONTINUE THEN
* Add ASSIGN messages for the server class.
PERFORM 1000-ADD-SERVERCLASS-ASSIGNS
END-IF
.
1000-ADD-SERVERCLASS-ASSIGNS.
MOVE "* " TO WS-PROGRAM-UNIT
MOVE "FILE-1" TO WS-LOGICAL-FILE
MOVE "FILE1" TO FILE-NAME OF WS-FILE-NAME
PERFORM 1100-ADD-SERVERCLASS-ASSIGN
MOVE "FILE-2" TO WS-LOGICAL-FILE
MOVE "FILE2" TO FILE-NAME OF WS-FILE-NAME
PERFORM 1100-ADD-SERVERCLASS-ASSIGN
MOVE "FILE-3" TO WS-LOGICAL-FILE
MOVE "FILE3" TO FILE-NAME OF WS-FILE-NAME
PERFORM 1100-ADD-SERVERCLASS-ASSIGN
MOVE "FILE-4" TO WS-LOGICAL-FILE
Example 15-1. TS/MP Configuration Program (page 20 of 28)