PL/SQL例外処理のデータが見つかりません

Question

私は、UTL_MAILを使用して（/ ccに対して）特定のプロシージャの結果を送信する必要があるROUTINE、EMAILSおよびCOPIES列を持つテーブルEMAILSを持っています。

私は、次のコードを持っている：私は電子メールがEMAILSテーブルにありませんときMYPROCがCODE1を実行したい

PROCEDURE myproc AS 
    NO_EMAIL_FOUND EXCEPTION; 
    e EMAILS%ROWTYPE; 
    x NUMBER; 
BEGIN 

    --fetch data 
    SELECT x INTO x FROM <...>; 

    --fetch emails 
    SELECT * INTO e FROM emails WHERE routine='FRS_WEEKLY'; 
    IF e.emails IS NULL AND e.copies IS NULL THEN 
    RAISE NO_EMAIL_FOUND; 
    END IF; 

    <send mail code using UTL_MAIL>; 

    EXCEPTION 
    WHEN NO_EMAIL_FOUND THEN <code1>; 
    WHEN NO_DATA_FOUND THEN <code2>; 
    WHEN OTHERS THEN NULL; --RAISE; 

END myproc; 

を。私の問題はNO_EMAIL_FOUND例外が発生せず、SELECT文の前にNO_DATA_FOUND例外が発生してからcode2が実行されたことです。これを避ける方法は？

Answer 1

このお試しください：なしTOO_MANY_ROWS（PROCの実行と1通のメール1つのレコード）が生じないよう

PROCEDURE myproc AS 
    NO_EMAIL_FOUND EXCEPTION; 
    e EMAILS%ROWTYPE; 
    x NUMBER; 
BEGIN 

    BEGIN 
     --fetch data 
     SELECT x INTO x FROM <...>; 

     --fetch emails 
     BEGIN 
      SELECT * INTO e FROM emails WHERE routine='FRS_WEEKLY'; 
     EXCEPTION WHEN NO_DATA_FOUND THEN 
      RAISE NO_EMAIL_FOUND; 
     END; 
     IF e.emails IS NULL AND e.copies IS NULL THEN 
      RAISE NO_EMAIL_FOUND; 
     END IF; 

     <send mail code using UTL_MAIL>; 

    EXCEPTION 
     WHEN NO_EMAIL_FOUND THEN <code1>; 
     WHEN NO_DATA_FOUND THEN <code2>; 
     WHEN OTHERS THEN NULL; --RAISE; 
    END; 

END myproc; 

Answer 2

使用この：私はあなたがこのルーチンは、唯一のプロセスを正確に1つの電子メールができることを認識している願っています

PROCEDURE myproc AS 
    NO_EMAIL_FOUND EXCEPTION; 
    e EMAILS%ROWTYPE; 
    x NUMBER; 
BEGIN 

    --fetch data 
    SELECT x INTO x FROM <...>; 

    --fetch emails 
    BEGIN 
    SELECT * INTO e FROM emails WHERE routine='FRS_WEEKLY'; 
    EXCEPTION 
    WHEN NO_DATA_FOUND THEN 
     RAISE NO_EMAIL_FOUND; 
    END; 

    IF e.emails IS NULL AND e.copies IS NULL THEN 
    RAISE NO_EMAIL_FOUND; 
    END IF; 

    <send mail code using UTL_MAIL>; 

    EXCEPTION 
    WHEN NO_EMAIL_FOUND THEN <code1>; 
    WHEN NO_DATA_FOUND THEN <code2>; 
    WHEN OTHERS THEN NULL; --RAISE; 

END myproc; 

。複数ある場合は、TOO_MANY_ROWS例外が発生します。