Maintains the status of an asynchronous request running on an OpenEdge application server or Web service.
IF VALID-OBJECT(SELF:ERROR-OBJECT) THEN DO:
// Perhaps display the error
MESSAGE SELF:ERROR-OBJECT:GetMessage(1) VIEW-AS ALERT-BOX.
END.
/* That's probably sufficient unless you are using STOP-AFTER.
It could also possibly be LockConflict, though that would
normally be handled on the server side. If both are
possible, check the type to know what it is. */
ELSE IF VALID-OBJECT(SELF:STOP-OBJECT) THEN DO:
IF TYPE-OF(SELF:STOP-OBJECT, Progress.Lang.StopAfter) THEN
. . .
END.
|
Note that references to all objects that implement the Progress.Lang.Error interface are returned using the ERROR-OBJECT attribute, including Progress.Lang.StopError. The STOP-OBJECT attribute returns only stop object references for Progress.Lang.Stop or one of its subclasses, such as Progress.Lang.StopAfter in the example.