Avoiding exceptions raised in declaration part and exception handler : Raise Exception « PL SQL Programming « Oracle PL/SQL Tutorial

1. Oracle PL/SQL Tutorial
2. PL SQL Programming
3. Raise Exception

SQL> create or replace procedure p_validatezip (i_zipCode VARCHAR2)
  2  is
  3       e_tooShort EXCEPTION;
  4       e_tooLong  EXCEPTION;
  5       e_badZip   EXCEPTION;
  6       pragma exception_init(e_badZip, -20998);
  7       v_tempZip number:=to_number(i_zipCode);
  8  begin
  9       if length(i_zipCode)< 5 then
 10         raise e_tooShort;
 11       elsif  length(i_zipCode)> 6 then
 12         raise e_tooLong;
 13       end if;
 14  exception
 15       when e_tooLong then
 16          DBMS_OUTPUT.put_line('long zip');
 17          raise e_badZip;
 18       when e_tooShort then
 19          DBMS_OUTPUT.put_line('short zip');
 20       when VALUE_ERROR then
 21          DBMS_OUTPUT.put_line('non-numeric zip');
 22          raise e_badZip;
 23    end;
 24  /

Procedure created.

SQL>
SQL> declare
  2
  3  begin
  4      p_validatezip('9123412341234');
  5  end;
  6  /
long zip
declare
*
ERROR at line 1:
ORA-20998:
ORA-06512: at "JAVA2S.P_VALIDATEZIP", line 17
ORA-06510: PL/SQL: unhandled user-defined exception
ORA-06512: at line 4


SQL>