Declare 
 Subtype T_ERROR_MESSAGE is Varchar2(2000);
 
 ci_All_Is_Lost constant Number := -20100; 
 
 i Number;
 bitsOver Boolean := False;
 vc_error T_ERROR_MESSAGE;
 
 Cursor bad_cursor is  Select 1/0 From dual; 
 
Begin
  Open bad_cursor;
  
  <<TRY>>
  Begin  
   Fetch bad_cursor Into i;      
  Exception 
    WHEN ZERO_DIVIDE
      THEN
   <<CATCH>>     
        vc_error := dbms_utility.format_error_stack();
        bitsOver := true;  
  End;
  
  <<Finally>>  
  Begin
    Close bad_cursor;  
    IF bitsover
      THEN
        RAISE_APPLICATION_ERROR(ci_All_Is_Lost, 'Шеф! Все пропало! ('||vc_error||')');
    END IF;
  End;  
End;  
/