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

Examples
NonStop TS/MP Pathsend and Server Programming Manual–132500
B-22
Pathsend Requester Example
! Check for errors on the disk operation
CASE cb.type OF
BEGIN
cb^type^msg^log ->
BEGIN
! I/O to the message log file failed
cb.file^system^error := error;
cb.file^system^error^msg ':=' "ERROR: " -> @sp;
CALL DNUMOUT (sp, $UDBL (error), 10,3);
@sp := @sp[3];
sp ':=' "RETURNED FROM AWAITIO ON I/O TO THE MESSAGE LOG FILE";
RETURN nil^addr;
END;
cb^type^pathsend ->
BEGIN
! A nowaited ServerClass_Send_ failed
IF error = FeSCError !file system error 233!
THEN ! call ServerClass_Send_Info_ for Pathsend & filesys errors
CALL analyze^send^error^233 (cb)
ELSE ! no other errors should be returned by AWAITIOX for
CALL abend^with^my^abend^msg; ! Pathsend sends
END;
OTHERWISE ->
! There are no other types of control blocks, so
CALL abend^with^my^abend^msg;
END; ! case
RETURN nil^addr;
END; ! PROC complete^io