如何重新抛出正在进行的 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.

如何在不丢失它携带的任何消息或数据的情况下重新抛出这个特定的异常？或者，如果您能在 Internet 上找到有关重新抛出正在进行的异常的任何信息，我将不胜感激。

Answer 1

你重新投掷就像投掷：

UNDO, THROW ex1 .

如何重新抛出正在进行的 4gl 异常？

How to rethrow caught exception in progress 4gl?

progress-4gl

openedge