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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-66
Nested Server Example
* THE SERVER CLASS OPERATION NUMBER <SCSEND-OP-NUM> PARAMETER IS
* OMITTED BECAUSE THE SEND IS BEING DONE IN WAIT MODE. IN NOWAIT
* MODE THE <SCSEND-OP-NUM> IS USED IN CALLS TO AWAITIOX.
*
* THE <TAG> AND <FLAGS> PARAMETER ARE OMITTED BECAUSE THE SEND IS
* BEING DONE IN WAIT MODE. THEY ARE ONLY NEEDED IN NOWAIT MODE.
IF WS-ERROR OF WS-SERVERCLASS-SEND-PARAM = 0
MOVE "SUCCESSFUL" TO PATHSEND-ERROR OF PATHSRV-REPLY
MOVE WS-MESSAGE-BUFFER OF WS-SERVERCLASS-SEND-PARAM
TO SUBSIDIARY-REPLY
MOVE "Y" TO WS-SERVERCLASS-SEND-OKAY
ELSE
IF WS-ERROR OF WS-SERVERCLASS-SEND-PARAM = 233
* A "233" (SERVER CLASS ERROR) ERROR MUST BE FURTHER ANALYZED WITH
* SERVERCLASS_SEND_INFO_ TO GET THE PATHSEND ERROR NUMBER AND FILE
* SYSTEM ERROR NUMBER.
PERFORM 0500-ANALYZE-SEND-ERROR-233
ELSE
MOVE "UNEXPECTED ERROR FOUND AFTER SERVERCLASS_SEND_ CALL"
TO PATHSEND-ERROR OF PATHSRV-REPLY
END-IF
END-IF.
0500-ANALYZE-SEND-ERROR-233.
* THIS PARAGRAPH CALLS SERVERCLASS_SEND_INFO_ TO GET THE PATHSEND
* ERROR NUMBER AND TO GET THE FILE SYSTEM ERROR NUMBER.
ENTER TAL "SERVERCLASS_SEND_INFO_"
USING
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM
WS-FILE-SYSTEM-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM
GIVING
WS-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM.
IF WS-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM NOT = ZERO
PERFORM 0700-SERVERCLASS-SEND-INFO-ERR
ELSE
IF WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 907 OR
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 908 OR
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 909 OR
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 910 OR
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 911 OR
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 912 OR
WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM = 919
* ERROR 907 : INVALID (EXTENDED) SEGMENT ID
* ERROR 908 : NO (EXTENDED) SEGMENT IN USE
* ERROR 909 : INVALID VALUE FOR FLAGS PARAMETER
* ERROR 910 : REQUIRED PARAMETER NOT SUPPLIED
* ERROR 911 : ONE OF THE BUFFER LENGTH PARAMETERS IS INVALID
* ERROR 912 : A REFERENCE PARAMETER IS OUT OF BOUNDS
* ERROR 919 : INVALID VALUE FOR TIMEOUT PARAMETER
MOVE WS-PATHSEND-ERROR OF WS-SERVERCLASS-SEND-INFO-PARAM
TO WS-NUMERIC-DISPLAY
STRING "BAD PARAMETER PASSED TO SERVERCLASS_SEND_ (ERROR = "
WS-NUMERIC-DISPLAY
")"
DELIMITED BY SIZE