Compile Invalid Objects fails on first error

Question

When attempting to compile invalid objects (Views or Packages) from the connection tree, the process fails on the first generated error and does not continue with the remaining invalid objects.
This is the code used by SQL Developer...
begin
FOR cur IN (SELECT OBJECT_NAME, OBJECT_TYPE, owner
FROM all_objects
WHERE object_type = :OBJECT_TYPE
and owner = :OBJECT_OWNER
AND status = 'INVALID' ) LOOP
if cur.OBJECT_TYPE = 'PACKAGE BODY' then
EXECUTE IMMEDIATE 'alter ' || cur.OBJECT_TYPE || ' ' || cur.OBJECT_NAME || ' compile body';
else
EXECUTE IMMEDIATE 'alter ' || cur.OBJECT_TYPE || ' ' || cur.OBJECT_NAME || ' compile';
end if;
end loop;
end;
...and this is the code used by a 'leading competitor' doing the same kind of process (amended by us to provide feedback)...
DECLARE
V_OWNER varchar2(30);
V_VIEWNAME varchar2(30);
C_ID integer;
I_RESULT integer;
CURSOR c is select OWNER, OBJECT_NAME from all_objects where owner in ('OCTOPUS', 'MILOGUSER') and object_type = 'VIEW' and STATUS = 'INVALID';
BEGIN
I_RESULT := -1;
OPEN c;
LOOP
FETCH c into V_OWNER, V_VIEWNAME;
EXIT WHEN c%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(V_OWNER ||'.' ||V_VIEWNAME);
BEGIN
C_ID := DBMS_SQL.open_cursor;
DBMS_SQL.PARSE(C_ID, 'ALTER VIEW '|| V_OWNER || '.' || V_VIEWNAME || ' COMPILE', DBMS_SQL.v7);
I_RESULT := DBMS_SQL.EXECUTE(C_ID);
EXCEPTION
WHEN OTHERS THEN I_RESULT := -1; END;
DBMS_OUTPUT.PUT_LINE(I_RESULT);
DBMS_SQL.CLOSE_CURSOR(C_ID);
END LOOP;
END;
Note: the exception part of the code allows the process to continue and wouldn't take much to incorporate into SQL Developer

Answer 1

Bug logged andy.
B