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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-55
Nested Server Example
DATA RECORD IS ERROR-LOG-REC.
01 ERROR-LOG-REC PIC X(132).
WORKING-STORAGE SECTION.
01 WS-FILE-STATUS PIC X(2) VALUE ZERO.
88 WS-CLOSE-FROM-REQUESTER VALUE "10".
01 WS-FILE-SYSTEM-ERROR-MESSAGE.
03 FILLER PIC X(25)
VALUE "FILE SYSTEM ERROR. FILE: ".
03 WS-LOGICAL-FILE-NAME PIC X(31).
03 FILLER PIC X(13)
VALUE "FILE STATUS: ".
03 WS-FILE-STATUS-ERROR-MESSAGE PIC 99.
01 WS-NUMERIC-DISPLAY PIC S9(9).
* YOU CAN USE THE FOLLOWING WS-ASSIGN TABLE TO STORE UP TO FIFTY
* ASSIGNS. THESE ASSIGNS ARE FOR THE PATHMON SYSTEM AND PROCESS
* NAMES OF SUBSIDIARY SERVERS. IF YOU USE PATHMON-ASSIGN-NAME IN THE
* REQUEST MESSAGE (PATHSRV-REQUEST), THEN THE ASSOCIATED PATHMON
* SHOULD BE IN THIS TABLE. THIS IS ONE WAY OF AVOIDING HARD-CODING
* PATHMON SYSTEM AND PROCESS NAMES.
01 WS-ASSIGN-TABLE.
03 WS-ASSIGN-NAME PIC X(31) OCCURS 50.
03 WS-SYSTEM-AND-PROCESS PIC X(15) OCCURS 50.
03 WS-NUMBER-OF-ENTRIES PIC S9(4) COMP VALUE ZERO.
03 WS-INDEX PIC S9(4) COMP VALUE ZERO.
* THE FOLLOWING PARAMETERS ARE USED WHEN CALLING GETASSIGNTEXT
01 WS-GETASSIGNTEXT-PARAM.
03 WS-PORTION PIC X(30).
03 WS-TEXT PIC X(32).
03 WS-MESSAGE-NUMBER PIC S9(4) COMP VALUE 1.
03 WS-RESULT PIC S9(4) COMP VALUE ZERO.