TS/MP Pathsend and Server Programming Manual (H06.05+, J06.03+)

IF WS-LOCAL OF WS-MOM-PROCESS
MOVE WS-PROCESS-ID OF WS-PROCESS-ID-LOCAL OF WS-MOM-PROCESS
TO WS-PROCESS-NAME OF WS-MOM-PROCESS
ELSE
STRING "$"
WS-PROCESS-ID OF WS-PROCESS-ID-NETWORK OF WS-MOM-PROCESS
DELIMITED BY " "
INTO WS-PROCESS-NAME OF WS-MOM-PROCESS
END-IF
ENTER TAL "GETSYSTEMNAME" USING WS-SYSTEM-NUMBER OF WS-MOM-PROCESS
WS-SYSTEM-NAME OF WS-MOM-PROCESS
STRING WS-SYSTEM-NAME OF WS-MOM-PROCESS DELIMITED BY " "
"." DELIMITED BY SIZE
WS-PROCESS-NAME OF WS-MOM-PROCESS DELIMITED BY " "
INTO WS-SYSTEM-AND-PROCESS OF WS-MOM-PROCESS
END-IF.
0440-VALIDATE-PATHSRV-REQUEST.
IF PATHMON-ASSIGN-NAME OF PATHSRV-REQUEST NOT = SPACES AND
PATHMON-SYSTEM-AND-PROCESS OF PATHSRV-REQUEST NOT = SPACES
MOVE "BOTH ASSIGN NAME AND PROCESS NAME SHOULD NOT BE NON-BLANK"
TO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
MOVE "N" TO WS-VALID-PATHSRV-REQUEST
END-IF.
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.
Nested Server Example 193