TS/MP Pathsend and Server Programming Manual (G06.24+, H06.03+)

ManualsBrandsHP ManualsServerHP NonStop G-Series

201

202

203

204

205

206

207

208

209

210

Examples

NonStop TS/MP Pathsend and Server Programming Manual–132500

B-62

Nested Server Example

0400-BUILD-ASSIGN-TABLE.

* THIS PARAGRAPH LOADS WS-ASSIGN-TABLE FROM THE STARTUP ASSIGN

* MESSAGES.

* WS-ASSIGN-TABLE IS USED TO STORE UP TO FIFTY ASSIGN's. THESE

* ASSIGN's ARE FOR PATHMON SYSTEM AND PROCESS NAMES OF SUBSIDIARY

* SERVERS. IF PATHMON-ASSIGN-NAME IS USED IN THE REQUEST MESSAGE

* (PATHSRV-REQUEST) THEN THE ASSOCIATED PATHMON SHOULD BE IN THIS

* TABLE. THIS IS ONE WAY OF AVOIDING HARD-CODING PATHMON SYSTEM AND

* PROCESS NAMES.

PERFORM VARYING WS-MESSAGE-NUMBER OF WS-GETASSIGNTEXT-PARAM

FROM 1 BY 1

UNTIL WS-RESULT OF WS-GETASSIGNTEXT-PARAM = -1 OR

WS-MESSAGE-NUMBER OF WS-GETASSIGNTEXT-PARAM = 51

MOVE "LOGICALNAME" TO WS-PORTION OF WS-GETASSIGNTEXT-PARAM

ENTER "GETASSIGNTEXT"

USING

WS-PORTION OF WS-GETASSIGNTEXT-PARAM

WS-TEXT OF WS-GETASSIGNTEXT-PARAM

WS-MESSAGE-NUMBER OF WS-GETASSIGNTEXT-PARAM

GIVING

WS-RESULT OF WS-GETASSIGNTEXT-PARAM

IF WS-RESULT OF WS-GETASSIGNTEXT-PARAM NOT = -1

ADD 1 TO WS-NUMBER-OF-ENTRIES OF WS-ASSIGN-TABLE

MOVE WS-TEXT OF WS-GETASSIGNTEXT-PARAM TO

WS-ASSIGN-NAME OF WS-ASSIGN-TABLE

(WS-NUMBER-OF-ENTRIES OF WS-ASSIGN-TABLE)

END-IF

MOVE "TANDEMNAME" TO WS-PORTION OF WS-GETASSIGNTEXT-PARAM