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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-57
Nested Server Example
* THE FOLLOWING PARAMETERS ARE USED IN CALLS TO PROCESSINFO AND
* MYSYSTEMNUMBER, WHICH ARE USED TO IDENTIFY THE MOM OF THE SERVER
* PROCESS.
01 WS-MOM-PROCESS.
03 WS-PROCESS-ID-GENERIC.
05 WS-BYTE-1 PIC X.
88 WS-LOCAL VALUE "$".
88 WS-NETWORK VALUE "\".
05 FILLER PIC X(5).
05 WS-CPU-PIN PIC S9(4) COMP.
03 WS-PROCESS-ID-LOCAL REDEFINES WS-PROCESS-ID-GENERIC.
05 WS-PROCESS-ID PIC X(6).
05 WS-CPU-PIN PIC S9(4) COMP.
03 WS-PROCESS-ID-NETWORK REDEFINES WS-PROCESS-ID-GENERIC.
05 WS-BACKSLASH PIC X.
05 WS-SYSTEM-NUMBER-1-BYTE PIC X.
05 WS-PROCESS-ID PIC X(4).
05 WS-CPU-PIN PIC S9(4) COMP.
03 WS-SYSTEM-NUMBER PIC 9(4) COMP.
03 WS-SYSTEM-NUMBER-2-BYTES REDEFINES WS-SYSTEM-NUMBER.
05 FILLER PIC X.
05 WS-BYTE-2 PIC X.
03 WS-PROGRAM-FILENAME.
05 FILLER PIC X(16).
05 WS-FILE PIC X(8).
03 WS-SYSTEM-NAME PIC X(8).
03 WS-PROCESS-NAME PIC X(6).
03 WS-SYSTEM-AND-PROCESS PIC X(15).
* THIS FLAG INDICATES WHETHER THE MOM OF THE SERVER PROCESS IS A
* PATHMON. THE VALUE "N" MEANS THAT MOM IS A PATHMON, THE VALUE "Y"
* MEANS THAT MON IS NOT A PATHMON, IN WHICH CASE THE PATHSRV-REQUEST
* MESSAGE MUST IDENTIFY THE PATHMON WITH AN EXPLICIT NAME OR AN
* ASSIGN. (THE DEFAULT TO THE SERVER PROCESS MOM CANNOT BE TAKEN.)
01 WS-SERVER-IS-ASSOCIATIVE PIC X.
* THE PATHSRV-REQUEST MESSAGE FROM THE REQUESTER IS VALIDATED IN THIS
* PROGRAM. IF IT IS NOT VALID, THIS FLAG IS SET TO "N"
01 WS-VALID-PATHSRV-REQUEST PIC X.