create or replace procedure deleteLgZS is
cursor getList is select ryid from qbzhpt.t_ys_ry a where a.ywgl='0000000100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000' ;
type getRyIDLIST is table of getList%rowtype;
r_rk getRyIDLIST;
begin
open getList;
loop
fetch getList bulk collect
into r_rk limit 1000;
exit when r_rk.count=0;
for i in r_rk.first .. r_rk.last loop
delete from qbzhpt.t_ys_ry a
where a.ryid=r_rk(i).ryid and a.ywgl='0000000100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000' ;
end loop;
commit;
end loop ;
close getList;
end ;
Oracle 存储过程中的For循环使用实例
最新推荐文章于 2024-04-22 21:36:09 发布