ITPub博客

首页 > Linux操作系统 > Linux操作系统 > ForAll .. Returning

ForAll .. Returning

原创 Linux操作系统 作者:Farmor 时间:2011-04-30 14:42:03 0 删除 编辑

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博客 ” ,链接:http://blog.itpub.net/25684327/viewspace-694165/,如需转载,请注明出处,否则将追究法律责任。

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

注册时间:2011-04-13

  • 博文量
    22
  • 访问量
    28540