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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-54
Nested Server Example
* ANY ERRORS THAT CAN NOT BE REPORTED BY PATHSRV BACK TO ITS
* REQUESTER ARE WRITTEN TO AN ERROR LOG FILE. THIS ENTRY SEQUENCED
* FILE WITH 132 BYTES RECORDS MUST EXIST PRIOR TO THE EXECUTION OF
* PATHSRV. ITS ASSIGN NAME IS ERROR-LOG-FILE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TANDEM.
OBJECT-COMPUTER. TANDEM.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
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