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

* 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).
Nested Server Example 185