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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-10
Configuring Pathway
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
MOVE "FILE4" TO FILE-NAME OF WS-FILE-NAME
PERFORM 1100-ADD-SERVERCLASS-ASSIGN
.
1100-ADD-SERVERCLASS-ASSIGN.
MOVE "1100-ADD-SERVERCLASS-ASSIGN" TO WS-PARA-NAME
* Construct the ADD SCASSIGN command.
MOVE ZPWY-CMD-ADD TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-SCASSIGN TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the server class
* ASSIGN message.
PERFORM 3200-SELECT-SCASSIGN
* Clear the server class ASSIGN definition.
ENTER TAL "SSNULL"
USING ZPWY-MAP-DEF-SCASSIGN,
ZPWY-DDL-DEF-SCASSIGN
GIVING WS-SS-RESULT
Example 15-1. TS/MP Configuration Program (page 9 of 28)