TS/MP Pathsend and Server Programming Manual (H06.05+, J06.03+)

* 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
Nested Server Example 195