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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-59
Nested Server Example
* REQUESTER ON $RECEIVE.
*
* IF AN ERROR IS FOUND WHILE READING $RECEIVE, A MESSAGE IS WRITTEN
* TO THE ERROR-LOG-FILE AND THE PROGRAM STOPS.
PERFORM 0100-INITIALIZE.
PERFORM UNTIL WS-CLOSE-FROM-REQUESTER
READ MESSAGE-IN-FILE
IF WS-FILE-STATUS = ZERO
PERFORM 0200-PROCESS-TRANSACTION
WRITE PATHSRV-REPLY
ELSE
IF NOT WS-CLOSE-FROM-REQUESTER
MOVE WS-FILE-SYSTEM-ERROR-MESSAGE TO ERROR-LOG-REC
PERFORM 9000-WRITE-ERROR-LOG-REC
PERFORM 9900-STOP-RUN
END-IF
END-IF
END-PERFORM
PERFORM 0300-CLOSEDOWN
PERFORM 9900-STOP-RUN.
0100-INITIALIZE.
OPEN EXTEND ERROR-LOG-FILE SHARED.
OPEN INPUT MESSAGE-IN-FILE.
OPEN OUTPUT MESSAGE-OUT-FILE.
PERFORM 0400-BUILD-ASSIGN-TABLE.
PERFORM 0410-GET-MY-SYSTEM-PROCESS.
PERFORM 0420-GET-MOM-SYSTEM-PROCESS.