PLSQL 中异常处理

--测试自定义异常

create or replace package body exception_test_pkg is


  exp_difin_error exception;
  g_msg_data varchar2(2000);

procedure test(p1 in number, p2 in number) is
begin
if p1 > p2 then
      g_msg_data := 'p1大于p2';
      raise exp_difin_error;

end if;
end;

procedure main(p1 in number, p2 in number) is
begin

    test(p1, p2);

  exception
when exp_difin_error then
      raise_application_error(-20001, g_msg_data || ';  ' || SQLERRM);
END;

end exception_test_pkg;