最近在QQ群里面，有人问起如何使用分段处理，竟然忘记如何操作，当时只是COPY一本书里的内容，只记得大致的步骤，先重新温习，以便记忆：

实现功能：

1.分段处理

2.拆分操作

3.批量绑定

－－摘自《Oracle 数据库性能优化》

CREATE OR REPLACE PROCEDURE del_hubel_SSF_forall
as
 type ridArray is table of rowid index by binary_integer;
 type dtArray is table of varchar2(50) index by binary_integer;
 
 v_rowid ridArray;
 v_mid_to_delete dtArray;
BEGIN
 SELECT mid, rowid bulk_collect into v_mid_to_delete, v_rowid from temp_mid_hubei_bak WHERE ROWNUM<10001;
 FORALL i in 1.. v_mid_to_delete.COUNT
  DELETE FROM  SSF WHERE mid=v_mid_to_delete(i);
  --DBMS_OUTPUT_LINE(TO_CHAR(v_mid_to_delete.COUNT) || records deleted from hubei_SSF !!!);
   FORALL i in i .. v_rowid.COUNT
    DELETE FROM temp_mid_hubei_bak WHERE ROWID=v_rowid(i);
  --DBMS_OUTPUT_LINE(TO_CHAR(v_mid_to_delete.COUNT) || records deleted from hubei_SSF !!!);
END;

CREATE OR REPLACE PROCEDURE exec_forall
(
 p_RowCount in number,   --Total need to delete rows count
 p_ExeCount in number
)
AS
 n_RowCount number:=0;
 n_ExeTimes number:=0;
 n_Delete number:=0;
BEGIN
 n_RowCount :=p_RowCount;
 
 WHILE n_RowCount>0
 LOOP
  EXECUTE IMMEDIATE begin del_hubei_SSF_forall; end;;
  COMMIT;
 
  IF n_RowCount>p_ExeCount THEN
   n_RowCount:=n_RowCount-p_ExeCount;
   n_ExeTime:=n_ExeTimes+1;
  ELSE
   n_ExeTimes :=n_ExeTimes+1;
   n_Delete:=RowCount;
   n_RowCount:=n_RowCount-p_ExeCount;
  END IF;
  --DBMS_OUTPUT_LINE(---------------- || TO_CHAR(n_ExeTimes) || --------------);
  n_delete :=n_delete+p_ExeCount*(n_ExeTimes-1);
  END LOOP;
  --DBMS_OUTPUT_LINE(Full Finished!!!);
  --DBMS_OUTPUT_LINE(Totally || TO_CHAR(n_delete) || records deleted. !!!);
END;