declare
  v_n number;
  ERROR_igor_alex EXCEPTION;
  PRAGMA EXCEPTION_INIT(ERROR_igor_alex, -20000);
begin 
 <<a>>
 begin 
   --возбуждаем исключение
   Raise_Application_Error(-20000, 'Внешний EXCEPTION a');
  <<b>>
  begin
   --сюда не попадаем
   v_n:=1/(trunc(sysdate)-trunc(sysdate));
   exception 
     --вложенноe не срабативат
     when ERROR_igor_alex then
       dbms_output.put_line ('dbms_output1 Вложенный EXCEPTION (b)');
     when zero_divide then
       dbms_output.put_line ('dbms_output2 Деленіе на 0 (b)');
       --передаем во внешнмий мир
       raise;
   end b;
 exception
   --обрабатываем исключение 
   when ERROR_igor_alex then
     dbms_output.put_line ('dbms_output3 Внешний EXCEPTION (a)');
   when zero_divide then
     dbms_output.put_line ('dbms_output4 Деленіе на 0 (a)');
 end a; 
--
--
--
 <<c>>
 begin 
  <<d>>
  --нет Raise_Application_Error 
  begin
   --делим
   v_n:=1/(trunc(sysdate)-trunc(sysdate));
  exception 
    when ERROR_igor_alex then
     dbms_output.put_line ('dbms_output5 Вложенный EXCEPTION (d)');
    when zero_divide then
     --обрабатываем  исключение
     dbms_output.put_line ('dbms_output6 Деленіе на 0 (d)');
     --передаем во внешнмий мир
     raise;
  end d;
 exception 
   when ERROR_igor_alex then
     dbms_output.put_line ('dbms_output7 Внешний EXCEPTION (c)');
   when zero_divide then
     --обрабатываем  исключение (пришло из внутреннего блока с)
     dbms_output.put_line ('dbms_output8 Деленіе на 0 (c)');
     --передаем во внешнмий мир 
     --если raise убрать ошибки ora не будет
     raise;
 end c; 
end;
/
SQL> /
dbms_output3 Внешний EXCEPTION (a)
dbms_output6 Деленіе на 0 (d)
dbms_output8 Деленіе на 0 (c)
declare
*
ERROR at line 1:
ORA-01476: divisor is equal to zero
ORA-06512: at line 55


SQL> ed
Wrote file afiedt.buf