版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/roamer314/article/details/70675138
CREATE OR REPLACE
procedure delBigTab --分批提交删除
(p_TableName in varchar2, --表名
p_Condition in varchar2, --条件
p_Count in varchar2 --每批提交的条数
) as
pragma autonomous_transaction;
n_delete number := 0;
begin
while 1 = 1 loop
EXECUTE IMMEDIATE 'delete from ' || p_TableName || ' where ' ||
p_Condition || ' and rownum <= :rn'
USING p_Count;
if SQL%NOTFOUND then
exit;
else
n_delete := n_delete + SQL%ROWCOUNT;
DBMS_OUTPUT.PUT_LINE(n_delete);
end if;
commit;
end loop;
commit;
DBMS_OUTPUT.PUT_LINE('Finished!');
DBMS_OUTPUT.PUT_LINE('Totally ' || to_char(n_delete) ||
' records deleted!');
end;