日期:2014-05-17 浏览次数:20980 次
SQL> CREATE OR REPLACE PROCEDURE pb IS 2 invalid_data EXCEPTION; 3 PRAGMA EXCEPTION_INIT(invalid_data, -20100); 4 v_sqlerrm VARCHAR2(2000); 5 BEGIN 6 IF TRUE THEN 7 RAISE_APPLICATION_ERROR(-20100, 'Invalid Registration'); 8 END IF; 9 EXCEPTION 10 WHEN invalid_data THEN 11 v_sqlerrm := SQLERRM; 12 dbms_output.put_line(v_sqlerrm); 13 END; 14 / 过程已创建。 SQL> SQL> SET serveroutput ON; SQL> exec pb; ORA-20100: Invalid Registration PL/SQL 过程已成功完成。 SQL>