Raising several run time errors in progress 4GL

[AD.]

I want to test some AppServer error handling in progress. However, in order to test it I would like a run-time error with num-messages >= 2. How can you generate such multiple errors?


Here are some samples of what I am trying to do

IF ERROR-STATUS:ERROR THEN
LogToAppserver().


and

CATCH e AS Progress.Lang.Error :
LogToAppserver(e).
END CATCH.


where LogToAppserver looks like

METHOD PRIVATE VOID LogToAppserver( ):

DEFINE VARIABLE locNumErrors AS INTEGER NO-UNDO.

locNumErrors = ERROR-STATUS:NUM-MESSAGES.

DO WHILE locNumErrors > 0:
MESSAGE ERROR-STATUS:GET-MESSAGE (locNumErrors).
locNumErrors = locNumErrors - 1.
END.

RETURN.

END METHOD.

METHOD PRIVATE VOID LogToAppserver( INPUT iError AS Progress.Lang.Error ):

DEFINE VARIABLE locNumErrors AS INTEGER NO-UNDO.

locNumErrors = iError:NumMessages.

DO WHILE locNumErrors >0:

MESSAGE iError:GetMessage(locNumErrors ).

locNumErrors = locNumErrors - 1.

END.

RETURN.

END METHOD.

Continue reading...