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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-9
Configuring Pathway
* Next, issue the INFO SC command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
* Finally, obtain the default values for the
* server class definition.
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-SC,
ZPWY-DDL-DEF-SC,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
MOVE "SSGET of ZPWY-DDL-SEL-SC" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Construct the ADD SC command.
MOVE ZPWY-CMD-ADD TO COMMAND OF WS-SPI-INPUT
MOVE ZPWY-OBJ-SC TO OBJECT-TYPE OF WS-SPI-INPUT
PERFORM 2800-SELECT-COMMAND-OBJECT
* Construct the object-selector token for the server class.
MOVE "SERVER-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 3100-SELECT-SERVERCLASS
* Set appropriate server class definition values.
MOVE ZPWY-VAL-GUARDIAN TO ZPROCESSTYPE OF ZPWY-DDL-DEF-SC
MOVE 1 TO ZCPUPAIRCOUNT OF ZPWY-DDL-DEF-SC
MOVE WS-PRIMARY-CPU TO ZPRIMARY OF ZCPUPAIR OF ZPWY-DDL-DEF-SC ( 1 )
MOVE WS-BACKUP-CPU TO ZBACKUP OF ZCPUPAIR OF ZPWY-DDL-DEF-SC ( 1 )
MOVE 3 TO ZMAXSERVERS OF ZPWY-DDL-DEF-SC
MOVE 2 TO ZNUMSTATIC OF ZPWY-DDL-DEF-SC
MOVE SPACES TO WS-TEMPORARY-AREA
* Convert the server program file name to FNAME32 format.
ENTER TAL "FNAME32EXPAND"
USING WS-SERVER-PROGRAM-FILE,
ZPROGRAM OF ZPWY-DDL-DEF-SC,
WS-TEMPORARY-AREA
GIVING WS-TEMPORARY-RESULT
IF WS-TEMPORARY-RESULT IS ZERO THEN
DISPLAY "FNAME32EXPAND ERROR "
SET NOT-OK-TO-CONTINUE TO TRUE
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
Example 15-1. TS/MP Configuration Program (page 8 of 28)