批量编译指定的无效对象【JOB】

declare

Vs_SQL varchar2(2000);

begin

for R in (select owner, object_name,decode(object_type,'PACKAGE BODY','PACKAGE',object_type) object_type

from dba_objects

where status = 'INVALID'

and object_type IN (

'PROCEDURE',

'PACKAGE BODY',

'TYPE',

'FUNCTION',

'PACKAGE',

'VIEW',

'TRIGGER')

and owner ='USERNAME') LOOP

Vs_SQL := 'ALTER ' || R.Object_Type || ' ' ||R.owner || '.' || R.object_name ||' COMPILE ';

begin

execute immediate vs_sql;

exception

when others then

dbms_output.put_line(vs_sql);

end;

end loop;

end;