內層程式中發生異常後，不會繼續執行外層程式的語句

開發寫了個儲存過程需要我們審批，發現子程式中使用了異常處理語句，
通過以下實驗說明這種寫法的問題：
SQL> create table test_number(test_id number);
 
Table created
 
Executed in 0.031 seconds
 
不使用子程式，正常執行：
SQL> declare
  2    v_err_mess varchar2(200);
  3    n_count number;
  4  begin
  5    select count(1) into n_count from test_number;
  6    dbms_output.put_line(n_count);
  7  exception
  8    when others then
  9      v_err_mess:=sqlcode||' '||sqlerrm;
 10      dbms_output.put_line(v_err_mess);
 11  end;
 12  /
 
0
 
PL/SQL procedure successfully completed
 
不使用子程式，異常執行：
SQL> declare
  2    v_err_mess varchar2(200);
  3    n_count number;
  4  begin
  5    select test_id into n_count from test_number;
  6    dbms_output.put_line(n_count);
  7  exception
  8    when others then
  9      v_err_mess:=sqlcode||' '||sqlerrm;
 10      dbms_output.put_line(v_err_mess);
 11  end;
 12  /
 
100 ORA-01403: 未找到任何資料
 
PL/SQL procedure successfully completed
 


使用子程式，在子程式中進行異常處理：  
可以看到，在外層呼叫中無法獲取子程式異常處理中的賦值
SQL> 
SQL> declare
  2    v_err_mess varchar2(200);
  3    n_count number;
  4  begin
  5    begin
  6      select test_id into n_count from test_number;
  7      dbms_output.put_line(n_count);
  8    exception
  9      when others then
 10        v_err_mess:=sqlcode||' '||sqlerrm;
 11        dbms_output.put_line(v_err_mess);
 12     end;
 13  
 14     dbms_output.put_line('inner layer values：'||n_count);
 15  exception
 16    when others then
 17      v_err_mess:='out_layer:'||sqlerrm;
 18      dbms_output.put_line(v_err_mess);
 19  end;
 20  /
 
100 ORA-01403: 未找到任何資料
inner layer values：
 
PL/SQL procedure successfully completed
 


 
使用子程式，在子程式中進行正常處理：  
可以看到，在外層呼叫中可以獲取子程式中的賦值
SQL> declare
  2    v_err_mess varchar2(200);
  3    n_count number;
  4  begin
  5    begin
  6      select count(1) into n_count from test_number;
  7      dbms_output.put_line(n_count);
  8    exception
  9      when others then
 10        v_err_mess:=sqlcode||' '||sqlerrm;
 11        dbms_output.put_line(v_err_mess);
 12     end;
 13  
 14     dbms_output.put_line('inner layer values：'||n_count);
 15  exception
 16    when others then
 17      v_err_mess:='out_layer:'||sqlerrm;
 18      dbms_output.put_line(v_err_mess);
 19  end;
 20  /
 
0
inner layer values：0
 
PL/SQL procedure successfully completed


以上實驗


內層程式中發生異常後，不會繼續執行外層程式的語句。
可以在最外層進行異常處理。

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/26451536/viewspace-1815947/，如需轉載，請註明出處，否則將追究法律責任。