exceptioninit.sql

来自「Oracle 9i PL/SQL程序设计的随书源码」· SQL 代码 · 共 19 行

REM ExceptionInit.sql
REM Chapter 7, Oracle9i PL/SQL Programming by Scott Urman
REM This block illustrates the EXCEPTION_INIT pragma.

DELETE FROM log_table;

DECLARE
  e_MissingNull EXCEPTION;
  PRAGMA EXCEPTION_INIT(e_MissingNull, -1400);
BEGIN
  INSERT INTO students (id) VALUES (NULL);
EXCEPTION
  WHEN e_MissingNull then
    INSERT INTO log_table (info) VALUES ('ORA-1400 occurred');
END;
/

SELECT * FROM log_table;