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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-56
Nested Server Example
* PROCESSINFO IS CALLED TO SEE IF THE MOM OF THE SERVER PROCESS IS A
* PATHMON. (THIS IDENTIFIES WHETHER THE SERVER IS ASSOCIATIVE.) AN
* ERROR NUMBER (WS-ERROR) MY BE RETURNED FOR A CALL TO PROCESSINFO.
01 WS-PROCESSINFO-PARAM.
03 WS-ERROR PIC S9(4) COMP.
* THE FOLLOWING PARAMETERS ARE USED IN A CALL TO LOOKUPPROCESSNAME,
* WHICH LOCATES THE MOM OF THE CURRENT SERVER PROCESS (TO SEE IF IT'S
* A PATHMON).
01 WS-LOOKUPPROCESSNAME-PARAM.
03 WS-PROCESS-NAME PIC X(6).
03 FILLER PIC X(4).
03 WS-ANCESTOR-PROCESS-ID PIC X(8).
* THE FOLLOWING PARAMETERS ARE USED IN A CALL TO SERVERCLASS_SEND_.
01 WS-SERVERCLASS-SEND-PARAM.
03 WS-ERROR PIC S9(4) COMP VALUE ZERO.
03 WS-PATHMON-PROCESS-NAME PIC X(15).
03 WS-PATHMON-PROCESS-NAME-LEN PIC S9(4) COMP VALUE 15.
03 WS-SERVER-CLASS-NAME PIC X(15).
03 WS-SERVER-CLASS-NAME-LEN PIC S9(4) COMP VALUE 15.
03 WS-MESSAGE-BUFFER PIC X(300).
03 WS-REQUEST-LEN PIC S9(4) COMP VALUE 63.
03 WS-MAXIMUM-REPLY-LEN PIC S9(4) COMP VALUE 300.
03 WS-ACTUAL-REPLY-LEN PIC S9(4) COMP.
03 WS-TIMEOUT PIC S9(9) COMP VALUE 12000.
* THE FOLLOWING PARAMETERS ARE USED IN A CALL TO SERVERCLASS_SEND_INFO_
01 WS-SERVERCLASS-SEND-INFO-PARAM.
03 WS-ERROR PIC S9(4) COMP VALUE ZERO.
03 WS-PATHSEND-ERROR PIC S9(4) COMP.
03 WS-FILE-SYSTEM-ERROR PIC S9(4) COMP.
* THE FOLLOWING PARAMETERS ARE USED IN A CALL TO MYPID AND MYCRTPID,
* WHICH ARE USED TO IDENTIFY THE CURRENT PROCESS. THE PROCESS NAME IS
* RETURNED TO THE REQUESTER IN THE PATHSRV-REPLY MESSAGE.
01 WS-MY-PROCESS.
03 WS-CPU-PIN PIC S9(4) COMP.
03 WS-PROCESS-ID.
05 WS-PROCESS-NAME PIC X(6).
05 FILLER PIC X(2).
03 WS-SYSTEM-NUMBER PIC 9(4) COMP.
03 WS-SYSTEM-NAME PIC X(8).