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/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/16179598/viewspace-582296/