declare
  type t_rowids is table of rowid;
  rowids t_rowids;
begin
 loop
   select rowid bulk collect into rowids from ims_old.values_f2 where rownum < 1000;
   if rowids.count < 1 then
     exit;
   end if;
   for indx in 1 .. rowids.count loop
     insert into ims.values_f select * from ims_old.values_f2 where rowid = rowids(indx);
     delete from ims_old.values_f2 where rowid = rowids(indx);
   end loop;
   insert into status values (0);
   commit;
 end loop;
end;