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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-67
Nested Server Example
INTO PATHSEND-ERROR OF PATHSRV-REPLY
ELSE
MOVE WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM
TO WS-NUMERIC-DISPLAY
STRING "SERVERCLASS_SEND_ PATHSEND ERROR NUMBER : "
WS-NUMERIC-DISPLAY
DELIMITED BY SIZE
INTO PATHSEND-ERROR OF PATHSRV-REPLY
END-IF
IF WS-FILE-SYSTEM-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 48
MOVE "SERVERCLASS_SEND_ SECURITY VIOLATION (ERROR 48)"
TO FILE-SYSTEM-ERROR OF PATHSRV-REPLY
ELSE
IF WS-FILE-SYSTEM-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 40
MOVE "SERVERCLASS_SEND_ TIMED OUT (ERROR 40)"
TO FILE-SYSTEM-ERROR OF PATHSRV-REPLY
ELSE
MOVE WS-FILE-SYSTEM-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM
TO WS-NUMERIC-DISPLAY
STRING "SERVERCLASS_SEND_ FILE SYSTEM ERROR NUMBER : "
WS-NUMERIC-DISPLAY
DELIMITED BY SIZE
INTO FILE-SYSTEM-ERROR OF PATHSRV-REPLY
END-IF
END-IF
END-IF.
0700-SERVERCLASS-SEND-INFO-ERR.
* THIS PARAGRAPH IS CALLED WHEN AN ERROR IS ENCOUNTERED CALLING
* SERVERCLASS_SEND_INFO_.
EVALUATE WS-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM
WHEN 2
MOVE "SERVERCLASS_SEND_INFO_ EXTENDED SEGMENT USAGE ERROR"
TO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
WHEN 22
MOVE "SERVERCLASS_SEND_INFO_ PARAMETER OUT OF BOUNDS"
TO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
WHEN 29
MOVE "SERVERCLASS_SEND_INFO_ MISSING REQUIRED PARAMETER"
TO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
WHEN OTHER
MOVE "UNEXPECTED ERROR FOUND IN CALL TO SERVERCLASS_SEND_INFO_"
TO NON-SEND-ERROR-MESSAGE OF PATHSRV-REPLY
END-EVALUATE.
9000-WRITE-ERROR-LOG-REC.
WRITE ERROR-LOG-REC.
9900-STOP-RUN.
STOP RUN.
;