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

SELECT MESSAGE-IN-FILE
ASSIGN TO $RECEIVE
FILE STATUS IS WS-FILE-STATUS.
SELECT MESSAGE-OUT-FILE
ASSIGN TO $RECEIVE
FILE STATUS IS WS-FILE-STATUS.
SELECT ERROR-LOG-FILE
ASSIGN TO "ERRORLOG"
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS WS-FILE-STATUS.
RECEIVE-CONTROL.
TABLE OCCURS 10 TIMES
SYNCDEPTH 1.
/
DATA DIVISION.
FILE SECTION.
FD MESSAGE-IN-FILE
DATA RECORD IS PATHSRV-REQUEST.
01 PATHSRV-REQUEST.
03 SUBSIDIARY-SERVER.
05 PATHMON-ASSIGN-NAME PIC X(31).
05 PATHMON-SYSTEM-AND-PROCESS PIC X(15).
05 SERVER-CLASS PIC X(15).
FD MESSAGE-OUT-FILE
DATA RECORD IS PATHSRV-REPLY.
01 PATHSRV-REPLY.
03 REPLY-CODE PIC S9(4) COMP.
03 THIS-SERVER.
05 SYSTEM-NAME PIC X(8).
05 PROCESS-NAME PIC X(8).
03 SUBSIDIARY-SERVER.
05 SYSTEM-NAME PIC X(8).
05 PROCESS-NAME PIC X(8).
03 TMF-ABORT-REQUIRED PIC X.
03 ERROR-MESSAGE.
05 PATHSEND-ERROR PIC X(78).
05 FILE-SYSTEM-ERROR PIC X(78).
03 NON-SEND-ERROR-MESSAGE PIC X(78).
FD ERROR-LOG-FILE
Nested Server Example 183