-- exc-test.sql
-- last modified: 1-30-13

--------
-- signature: procedure: exc_test1: void -> void
-- purpose: expects nothing, and prints messages to the screen
--          (if serveroutout is on!) showing a bit about
--          how exception handling works in PL/SQL

create or replace procedure exc_test1 as
    test_exc exception;
begin
    dbms_output.put_line('1 - at beginning');

    raise test_exc;

    dbms_output.put_line('2 - after raise exception');

exception
    when test_exc then
        dbms_output.put_line('3 - reached exception block');
end;
/

set serveroutput on

prompt CALLING exc_test1; should see that 1 and 3 are reached only
prompt ===========================================================

exec exc_test1   
   
-- end of exc-test.sql