処理ブロック外の手順のエラーをキャッチ

Question

次のコードがあります（説明のために簡略化してあります）。 proc1、proc2、およびproc3の異なるDBテーブルにレコードを作成しています。私が達成しようとしているのは、（たとえDBレコードを既に作成した後でも）いつでもテンポラリテーブルをループしている間にエラーが発生した場合は、すべてをロールバックしてレコードを作成しないことです。 proc1、proc2、proc3に問題がなければエラーをキャッチしますが、エラーをメイン処理ブロックに渡す方法を理解することができず、すべてを戻してロールバックします。言い換えれば、すでに作成されたレコードがDBに残るように、メッセージ（ 'error @ main trans block'）がポップアップすることはありません。実際、何もロールバックされません。

DO TRANSACTION ON ERROR UNDO, THROW: 

    FOR EACH tt1: 

     RUN proc1. 

     FOR EACH tt2 WHERE tt2.field1 EQ tt1.field1: 

      RUN proc2. 

      FOR EACH tt3 WHERE tt3.field2 EQ tt2.field2: 

       RUN proc3. 

      END. 

     END. 

    END. 

    CATCH e AS PROGRESS.Lang.AppERROR: 

     MESSAGE 'error @ main trans block' 
      VIEW-AS ALERT-BOX INFO BUTTONS OK. 

    END CATCH. 

END. 

PROCEDURE proc1. 
    DO TRANSACTION ON ERROR UNDO, THROW: 

     /* creating some DB records */ 

     CATCH e AS PROGRESS.Lang.ERROR: 

      RETURN ERROR 'Proc1 ' + e:getmessage(1). 

     END CATCH. 

    END. 

END PROCEDURE. 

PROCEDURE proc2. 
    DO TRANSACTION ON ERROR UNDO, THROW: 

     /* creating some DB records */ 

     CATCH e AS PROGRESS.Lang.ERROR: 

      RETURN ERROR 'Proc2 ' + e:getmessage(1). 

     END CATCH. 

    END. 

END PROCEDURE. 

PROCEDURE proc3. 
    DO TRANSACTION ON ERROR UNDO, THROW: 

     /* creating some DB records */ 

     CATCH e AS PROGRESS.Lang.ERROR: 

      RETURN ERROR 'Proc3 ' + e:getmessage(1). 

     END CATCH. 

    END. 

END PROCEDURE. 

TIA

Answer 1

潜在的な問題がいくつかあります。

まず、テンポラリテーブルtt1とtt2をNO-UNDOフラグなしで定義する必要があります。

第2に、FOR EACHブロックは、デフォルトのエラー処理の動作（ON ERROR UNDO, NEXT.）を使用しています。したがって、FOR EACHブロック内で発生したエラーは、トランザクション全体ではなく、現在の繰り返しを元に戻します。

私はプログラムの先頭に

BLOCK-LEVEL ON ERROR UNDO, THROW . 

を追加することをお勧めします。すべてのFOR EACHブロック上ON ERROR UNDO, THROWオプションと組み合わせて、または少なくとも

ROUTINE-LEVEL ON ERROR UNDO, THROW . 

。

BLOCK-LEVELエラー処理オプションはOpenEdge 11.3（またはそれ以降）から利用可能です。