为什么会出现fetch out of sequence错误，该如何解决?

我写的一个存储过程如下
for v_tmp in (select * from table1) loop
begin
....
--在这里做了一些新增、修改记录的动作
exception
    when others then
         v_message := v_message ||substr(sqlerrm,1,200);
         rollback;
         insert into table2(...);
         commit;
end;
end loop;循环执行时，当出现错误，会执行到捕获异常处理里面去，但执行完commit;再往下循环操作的时候就会出现fetch out　of sequence，这是为什么?
该如何解决？