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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-41
Pathsend Requester Example
! The following procedure is called from PROC analyze^send^error^233
! when SERVERCLASS_SEND_INFO_ fails. All these errors are
! non-retryable, and all are programming errors.
PROC ServerClass^Send^Info^error (error);
INT error;
BEGIN
CASE error OF
BEGIN
FEInvalidOp !2! ->
! Invalid segment in use or no segment in use and a param has xaddr
global^non^pathsend^error^msg ':='
"SERVERCLASS_SEND_INFO_ EXTENDED SEGMENT USAGE ERROR";
FEBoundsErr !22! ->
! Param out of bounds
global^non^pathsend^error^msg ':='
"SERVERCLASS_SEND_INFO_ PARAMETER OUT OF BOUNDS";
FEMissParam !29! ->
! A required param is missing
global^non^pathsend^error^msg ':='
"SERVERCLASS_SEND_INFO_ MISSING REQUIRED PARAMETER";
OTHERWISE ->
! No other errors should be returned from ServerClass_Send_Info_
global^non^pathsend^error^msg ':='
"SERVERCLASS_SEND_INFO_ UNEXPECTED ERROR";
END; ! case
END; ! PROC ServerClass^Send^Info^error