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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-65
Nested Server Example
0450-LOOKUP-PATHMON-ASSIGN.
* THIS PARAGRAPH LOOKS UP AN ASSIGN FROM THE REQUEST MESSAGE TO SEE
* WHETHER A CORRESPONDING PATHMON SYSTEM AND PROCESS NAME CAN BE
* FOUND IN THE TABLE OF ASSIGNS BUILT WHEN THE SERVER PROCESS
* STARTED. THE RESULTING PATHMON SYSTEM AND PROCESS NAME IS PUT INTO
* THE PARAMETER VARIABLE THAT IS USED IN THE PATHSEND SEND.
PERFORM VARYING WS-INDEX OF WS-ASSIGN-TABLE
FROM 1 BY 1 UNTIL WS-INDEX OF WS-ASSIGN-TABLE >
WS-NUMBER-OF-ENTRIES OF WS-ASSIGN-TABLE
IF WS-ASSIGN-NAME OF WS-ASSIGN-TABLE (WS-INDEX OF WS-ASSIGN-TABLE) =
PATHMON-ASSIGN-NAME OF PATHSRV-REQUEST
MOVE WS-SYSTEM-AND-PROCESS OF WS-ASSIGN-TABLE
(WS-INDEX OF WS-ASSIGN-TABLE)
TO WS-PATHMON-PROCESS-NAME OF WS-SERVERCLASS-SEND-PARAM
MOVE 99 TO WS-INDEX OF WS-ASSIGN-TABLE
END-IF
END-PERFORM
IF WS-INDEX OF WS-ASSIGN-TABLE LESS 99
MOVE "N" TO WS-VALID-PATHSRV-REQUEST
STRING "ASSIGN NAME MISSING : "
PATHMON-ASSIGN-NAME OF PATHSRV-REQUEST
DELIMITED BY SIZE
INTO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
END-IF.
0460-SEND-TO-SUBSIDIARY-SERVER.
* THIS PARAGRAPH PERFORMS THE PATHSEND SEND TO THE SUBSIDIARY SERVER
MOVE "N" TO WS-SERVERCLASS-SEND-OKAY.
MOVE SERVER-CLASS OF PATHSRV-REQUEST
TO WS-SERVER-CLASS-NAME OF WS-SERVERCLASS-SEND-PARAM.
MOVE SUBSIDIARY-REQUEST TO WS-MESSAGE-BUFFER
OF WS-SERVERCLASS-SEND-PARAM.
ENTER TAL "SERVERCLASS_SEND_"
USING
WS-PATHMON-PROCESS-NAME OF WS-SERVERCLASS-SEND-PARAM
WS-PATHMON-PROCESS-NAME-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-SERVER-CLASS-NAME OF WS-SERVERCLASS-SEND-PARAM
WS-SERVER-CLASS-NAME-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-MESSAGE-BUFFER OF WS-SERVERCLASS-SEND-PARAM
WS-REQUEST-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-MAXIMUM-REPLY-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-ACTUAL-REPLY-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-TIMEOUT OF WS-SERVERCLASS-SEND-PARAM
GIVING
WS-ERROR OF WS-SERVERCLASS-SEND-PARAM.