openedge - 如何重新抛出进行中的捕获异常 4gl？

Question

我找不到任何有关如何重新抛出我刚刚捕获的相同异常的信息。

我的 catch 表达式如下所示:

CATCH ex1 AS Progress.Lang.Error :
        MESSAGE ex1:NumMessages.
        DEFINE VARIABLE iteration AS INTEGER NO-UNDO.
        DO iteration = 1 TO 6:
             clsLog:inf(ex1:GetMessage(iteration)).
        END.

         clsLog:inf(SUBSTITUTE("ex1:CallStack: &1", ex1:CallStack)).
    END CATCH.

如何重新抛出此特定异常而不丢失它携带的任何消息或数据？或者，如果您可以在互联网上找到有关重新抛出正在进行的异常的任何内容，我将不胜感激。

Answer 1

你像 throw 一样重新 throw :

UNDO, THROW ex1 .