使用for循环，批量删除历史数据

declare
maxrows number default 500000;
begin
for i in 1 .. 100 loop
delete from TB_OPT_LOG
where op_time < to_date('20181001', 'yyyy-mm-dd')
and rownum <= maxrows;
commit;
end loop;
end;

create or replace procedure test as
cursor delete_cursor is select table_name from dba_tables where owner='SCOTT' and table_name in('OBJ1','OBJ2');
V_TABLE_NAME dba_tables.table_name%type;
BEGIN open delete_cursor;
fetch delete_cursor into v_table_name;
IF v_table_name= 'OBJ1' THEN
for i in 1 .. 100 loop
delete from scott.OBJ1
where CREATED < to_date('20181001', 'yyyy-mm-dd')
and rownum <= 500000;
commit;
end loop;
elsif v_table_name = 'OBJ2' then
for i in 1 .. 100 loop
delete from scott.OBJ2
where CREATED < to_date('20191001', 'yyyy-mm-dd')
and rownum <= 500000;
commit;
end loop;
close delete_cursor;
end if;
end;

declare
job number;
BEGIN
DBMS_JOB.SUBMIT(
JOB => job,  /*自动生成JOB_ID*/
WHAT => 'delete_log;',  /*需要执行的存储过程名称或SQL语句*/
NEXT_DATE => sysdate,  /*初次执行时间-立即执行*/
INTERVAL => 'TRUNC(sysdate+1)+1/24' /*每天凌晨一点执行一次*/
);
--commit;
end;
/