Exception捕捉异常处理

Question

我的问题如下,请求大家帮忙
FOR i IN (1..5) LOOP
   如果中间产生异常如何继续循环，而不是碰到异常就退出？
END LOOP;
--------实际应用代码功能如下------------------
declare
str_sql varchar2(2000);
cursor get_obj is
 select object_type, object_name from USER_OBJECTS 
 where status = 'INVALID' 
 and object_type in('PACKAGE BODY','VIEW');
begin
for rec_ in get_obj loop
 if (rec_.object_type = 'VIEW') then
str_sql := 'ALTER VIEW "'|| rec_.object_name ||'" COMPILE';
 else
str_sql := 'ALTER PACKAGE "'|| rec_.object_name ||'" COMPILE BODY';
 end if;
execute immediate str_sql;
---本来我想把Exception放到这个位置的,结果执行时就是出错
end loop;
EXCEPTION WHEN OTHERS THEN
--放在这不出错但不是我想要的效果,只要中间有一个异常整体
--结束了,我是想要碰到异常继续下一个循环而不是退出.
dbms_output.put_line(sqlerrm);
end;

Answer 1

declare
str_sql varchar2(2000);
cursor get_obj is
 select object_type, object_name from USER_OBJECTS 
 where status = 'INVALID' 
 and object_type in('PACKAGE BODY','VIEW');
begin
for rec_ in get_obj loop
 if (rec_.object_type = 'VIEW') then
str_sql := 'ALTER VIEW "'|| rec_.object_name ||'" COMPILE';
 else
str_sql := 'ALTER PACKAGE "'|| rec_.object_name ||'" COMPILE BODY';
 end if;
begin
execute immediate str_sql;
exception
when .....
end;
---本来我想把Exception放到这个位置的,结果执行时就是出错
end loop;
EXCEPTION WHEN OTHERS THEN
--放在这不出错但不是我想要的效果,只要中间有一个异常整体
--结束了,我是想要碰到异常继续下一个循环而不是退出.
dbms_output.put_line(sqlerrm);
end

Answer 2

问题解决了，揭帖了。
FOR i IN (1..5) LOOP
   --用BEGIN EXCEPTION ENDJJ   
END LOOP;