for

Declare   V_1 Varchar2(100);  i  Integer:=0;Begin  For c1 In(Select * From tb_tmp) Loop       i:=I+1;    If Mod(i,100)=0 Then      Commit;    End  If;  End Loop;Commit;End;