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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-63
Nested Server Example
0410-GET-MY-SYSTEM-PROCESS.
* THIS PARAGRAPH GETS THE PROCESS-ID FOR THE CURRENT SERVER PROCESS.
* THIS PROCESS-ID IS RETURNED TO THE REQUESTER IN PATHSRV-REPLY.
ENTER TAL "MYPID" GIVING WS-CPU-PIN OF WS-MY-PROCESS.
ENTER TAL "GETCRTPID" USING WS-CPU-PIN OF WS-MY-PROCESS
WS-PROCESS-ID OF WS-MY-PROCESS.
ENTER TAL "MYSYSTEMNUMBER" GIVING WS-SYSTEM-NUMBER OF WS-MY-PROCESS.
ENTER TAL "GETSYSTEMNAME" USING WS-SYSTEM-NUMBER OF WS-MY-PROCESS
WS-SYSTEM-NAME OF WS-MY-PROCESS.
0420-GET-MOM-SYSTEM-PROCESS.
* THIS PARAGRAPH GETS INFORMATION ABOUT THE MOM OF THE CURRENT SERVER
* PROCESS. THIS INFORMATION IS USED TO DETERMINE IF THE MOM IS A
* PATHMON. THE MOM PROCESS IS USED IN PATHSEND SENDS IF THE REQUEST
* (IN PATHSRV-REQUEST) DOES NOT SPECIFY A PATHMON (EITHER EXPLICITLY
* OR WITH AN ASSIGN).
MOVE WS-PROCESS-NAME OF WS-MY-PROCESS
TO WS-PROCESS-NAME OF WS-LOOKUPPROCESSNAME-PARAM.
ENTER TAL "LOOKUPPROCESSNAME" USING WS-LOOKUPPROCESSNAME-PARAM.
MOVE WS-ANCESTOR-PROCESS-ID OF WS-LOOKUPPROCESSNAME-PARAM
TO WS-PROCESS-ID-GENERIC OF WS-MOM-PROCESS.
IF NOT WS-LOCAL OF WS-MOM-PROCESS
MOVE ZERO TO WS-SYSTEM-NUMBER OF WS-MOM-PROCESS
MOVE WS-SYSTEM-NUMBER-1-BYTE OF WS-MOM-PROCESS TO
WS-BYTE-2 OF WS-SYSTEM-NUMBER-2-BYTES OF WS-MOM-PROCESS
ELSE
ENTER TAL "MYSYSTEMNUMBER" GIVING WS-SYSTEM-NUMBER OF WS-MOM-PROCESS
END-IF.
ENTER TAL "PROCESSINFO" USING WS-CPU-PIN OF WS-PROCESS-ID-GENERIC
OF WS-MOM-PROCESS
WS-PROCESS-ID-GENERIC OF WS-MOM-PROCESS
OMITTED
OMITTED
OMITTED
WS-PROGRAM-FILENAME OF WS-MOM-PROCESS
OMITTED
WS-SYSTEM-NUMBER OF WS-MOM-PROCESS
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
OMITTED
GIVING WS-ERROR OF WS-PROCESSINFO-PARAM.
IF WS-ERROR OF WS-PROCESSINFO-PARAM NOT = ZERO
MOVE "Y" TO WS-SERVER-IS-ASSOCIATIVE
ELSE
IF WS-FILE OF WS-PROGRAM-FILENAME OF WS-MOM-PROCESS = "PATHMON"
MOVE "N" TO WS-SERVER-IS-ASSOCIATIVE
ELSE
MOVE "Y" TO WS-SERVER-IS-ASSOCIATIVE
END-IF
END-IF.
IF WS-SERVER-IS-ASSOCIATIVE = "N"
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