批量清除一個表的數據，TB級別數據。

有個需求，要求清理8TB的數據，只保留一個月的數據，現有數據量由2010年至2018年底都需要清除，因此寫了通用的該清除腳本。該表為沒有分區的含有BLOB的大表，一共由三列，file_no,BLOB,還有create_time列，其中file_no為主鍵，create_time非空。

創新互聯不只是一家網站建設的網絡公司；我們對營銷、技術、服務都有自己獨特見解，公司采取“創意+綜合+營銷”一體化的方式為您提供更專業的服務！我們經歷的每一步也許不一定是最完美的，但每一步都有值得深思的意義。我們珍視每一份信任，關注我們的網站制作、網站設計質量和服務品質，在得到用戶滿意的同時，也能得到同行業的專業認可，能夠為行業創新發展助力。未來將繼續專注于技術創新，服務升級，滿足企業一站式營銷型網站需求，讓再小的品牌網站設計也能產生價值！

腳本如下：
create or replace procedure proc_batch_delete(PI_table_name in varchar2, -- table name which will delete data
PI_where_condition in varchar2, -- delete sql condition
PI_thread_count in varchar2, -- thread number of the sql which use parallel hint
PI_commit_count in varchar2) is -- per delete count and commit count
v_delete integer;
v_sql varchar2(2000);
begin
dbms_output.put_line('Delete table is ' || PI_table_name || ';');
dbms_output.put_line('Where condition is ' || PI_where_condition || ';');
dbms_output.put_line('Number of threads is ' || to_char(PI_thread_count) || ';');
dbms_output.put_line('Commit count is ' || to_char(PI_commit_count) || ';');
dbms_output.put_line('Now start to batch delete. Timestamp is ' || to_char(sysdate, 'yyyy-mm-dd hh34:mi:ss'));

v_delete := 0;

execute immediate 'alter session enable parallel dml';

v_sql := 'delete /+ parallel('||PI_table_name || ' ' || PI_thread_count ||') / from '
|| PI_table_name ||' where '|| PI_where_condition || 'and rownum <= ' || PI_commit_count;
dbms_output.put_line('Sql is ' || v_sql);

while 1=1 loop
EXECUTE IMMEDIATE v_sql;
if SQL%NOTFOUND then
exit;
else
v_delete:=v_delete + SQL%ROWCOUNT;
end if;
commit;
dbms_output.put_line('already deleted :' || to_char(v_delete) ||'.Timestamp is' || to_char(sysdate, 'yyyy-mm-dd hh34:mi:ss'));
end loop;
commit;

dbms_output.put_line('End to batch delete. Timestamp is ' || to_char(sysdate, 'yyyy-mm-dd hh34:mi:ss'));

end proc_batch_delete;

1.該圖

批量清除一個表的數據，TB級別數據。