SQL> DECLARE

  2      sal emp.sal%TYPE;

  3      myexp EXCEPTION;

  4  BEGIN

  5      SELECT sal INTO sal FROM emp WHERE ename='JAMES';

  6      IF sal<5000 THEN

  7         RAISE myexp;

  8      END IF;

  9  EXCEPTION

 10      WHEN NO_DATA_FOUND THEN

 11           dbms_output.put_line('NO RECORDSET FIND!');

 12      WHEN MYEXP THEN

 13           RAISE_APPLICATION_ERROR(-20001,'SAL IS TO LESS!');  ①

 14  END;

 15  /

ORA-20001: SAL IS TO LESS!  ②

ORA-06512: 在 line 14

<<outterseg>>

DECLARE

  null_salary EXCEPTION;

  PRAGMA EXCEPTION_INIT(null_salary, -20101);  ①

BEGIN

  <<innerStart>>  ②

  DECLARE

    curr_comm NUMBER;

  BEGIN

    SELECT comm INTO curr_comm FROM emp WHERE empno = &empno;

    IF curr_comm IS NULL THEN   

         RAISE_APPLICATION_ERROR(-20101, 'Salary is missing');  ③

    ELSE

      dbms_output.put_line('有津貼');

    END IF;

  END; 

EXCEPTION

  WHEN NO_DATA_FOUND THEN

          dbms_output.put_line('沒有發(fā)現(xiàn)行');

  WHEN null_salary THEN

          dbms_output.put_line('津貼未知');  ④

  WHEN OTHERS THEN

           dbms_output.put_line('未知異常');

END;