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;