DECLARE
TYPE numlist IS TABLE OF emp3.deptno%TYPE;
enums numlist;
depts numlist := numlist('10', '20');
enums1 numlist;
--type NumList_tab is table of NumList;
BEGIN
DELETE FROM emp3 WHERE deptno = 20 RETURNING deptno BULK COLLECT INTO enums;
-- if there were five employees in department 20,
-- then enums contains five employee numbers
dbms_output.put_line(enums.first);
dbms_output.put_line(enums.last);
dbms_output.put_line(enums.count);
FOR i IN nvl(enums.first, 1) .. nvl(enums.last, enums.count) LOOP
dbms_output.put_line('deptno' || enums(i));
END LOOP;
dbms_output.put_line('enums.count:' || enums.count);
FORALL j IN depts.first .. depts.last
DELETE FROM emp3 WHERE deptno = depts(j) RETURNING deptno BULK COLLECT INTO enums1;
FOR i IN nvl(enums1.first, 1) .. nvl(enums1.last, enums1.count) LOOP
dbms_output.put_line('deptno1:' || enums1(i));
END LOOP;
END;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/25684327/viewspace-694165/ ，如需转载，请注明出处，否则将追究法律责任。
