Oracle对象批量编译

declare
objowner varchar2(50) := 'scott';
begin
for obj in (select * from all_objects where status = 'INVALID' and object_type in ('PROCEDURE', 'FUNCTION', 'VIEW', 'TRIGGER') and owner=upper(objowner))
loop
begin
execute immediate 'alter ' ||obj.object_type|| ' ' ||obj.object_name || ' compile';
exception
when others then
dbms_output.put_line(sqlerrm);
end;
end loop;
end;