처리 블록 외부의 절차에서 오류 잡기

Question

다음 코드가 있습니다 (설명의 편의를 위해). proc1, proc2 및 proc3의 다른 DB 테이블에 레코드를 생성합니다. 내가 달성하고자하는 것은 ... DB 테이블 레코드를 이미 만든 후에도 임시 테이블을 반복하면서 오류가 발생하면 모든 레코드를 다시 롤백하여 레코드를 만들지 않기를 원합니다. proc1, proc2 및 proc3이 문제없이 catch되면 오류가 발생하지만 주 처리 블록에 오류를 전달하는 방법을 이해할 수 없으므로 오류를 이해하고 모든 오류를 롤백합니다. 즉, 이미 작성된 레코드가 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 플래그없이 정의해야합니다.

두 번째로 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 (이후)부터 사용할 수 있습니다.