TS/MP 2.5 Management Programming Manual

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
MOVE "SSNULL of ZPWY-DDL-DEF-SCASSIGN" TO WS-ERROR-TEXT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Set appropriate server class ASSIGN definition values.
* Point the file name to the current subvolume.
STRING WS-STARTUP-VOLUME DELIMITED BY SPACE
"." DELIMITED BY SIZE
FILE-NAME OF WS-FILE-NAME DELIMITED BY SIZE
" " DELIMITED BY SIZE
INTO WS-EXTERNAL-FILE-NAME
MOVE SPACES TO WS-TEMPORARY-AREA
ENTER TAL "FNAME32EXPAND"
USING WS-EXTERNAL-FILE-NAME,
ZGUARDIANFILE OF ZPWY-DDL-DEF-SCASSIGN,
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
* Put the server class ASSIGN definition into the buffer.
MOVE "SSPUT of ZPWY-DDL-DEF-SCASSIGN" TO WS-ERROR-TEXT
ENTER TAL "SSPUT"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-MAP-DEF-SCASSIGN,
ZPWY-DDL-DEF-SCASSIGN
GIVING WS-SS-RESULT
PERFORM 4000-CHECK-SUBSYSTEM-ERROR
* Issue the ADD SCASSIGN command.
PERFORM 3800-ISSUE-PATHMON-COMMAND
.
/
1500-START-SERVERCLASS.
MOVE "1500-START-SERVERCLASS" TO WS-PARA-NAME
* Construct the START SC command.
MOVE ZPWY-CMD-START 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
* Issue the START SC command.
MOVE "1500-START-SERVERCLASS" TO WS-PARA-NAME
PERFORM 3800-ISSUE-PATHMON-COMMAND
* If no spi error and start failed with newprocess error, go on
IF WS-SPI-RESULT = ZPWY-ERR-PM-NEWPROCESS AND WS-SS-RESULT = ZSPI-ERR-OK
SET OK-TO-CONTINUE TO TRUE
END-IF
.
/
1600-STATUS-SERVERCLASS-DETAIL.
MOVE "SERVER-SPI" TO OBJECT-NAME OF WS-SPI-INPUT
PERFORM 1700-STATUS-SERVERCLASS
* Get the status for all server processes of the server class.
DISPLAY WS-BLANK-LINE
DISPLAY WS-STATUS-SCPROCESS-HEADER
PERFORM 2200-BUILD-STATUS-SP-ALL
PERFORM 3600-SAVE-INITIAL-REQUEST
324 Management Programming Examples