ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 【笔记】forall 异常捕获

【笔记】forall 异常捕获

原创 Linux操作系统 作者:yellowlee 时间:2009-03-31 09:54:42 0 删除 编辑

forall 的异常捕获,示例

DECLARE
  TYPE NumList IS TABLE OF NUMBER;
  num_tab NumList := NumList(10, 0, 11, 12, 30, 0, 20, 199, 2, 0, 9, 1);
  errors  NUMBER;
  dml_errors EXCEPTION;
  PRAGMA exception_init(dml_errors, -24381);
BEGIN
  FORALL i IN num_tab.FIRST .. num_tab.LAST SAVE EXCEPTIONS
    DELETE FROM emp WHERE sal > 500000 / num_tab(i);
EXCEPTION
  WHEN dml_errors THEN
    errors := SQL%BULK_EXCEPTIONS.COUNT;
    dbms_output.put_line('Number of errors is ' || errors);
    FOR i IN 1 .. errors LOOP
      dbms_output.put_line('Error ' || i || ' occurred during' ||
                           'iteration ' || SQL%BULK_EXCEPTIONS(i)
                           .ERROR_INDEX);
      dbms_output.put_line('Oracle error is' ||
                           SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE));
    END LOOP;
END;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/16179598/viewspace-582296/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-12-27

  • 博文量
    316
  • 访问量
    658389