create or replace procedure zl_compile_invalid_procedure
asstrsql varchar2(200);beginfor x in (select object_name
from all_objects where status = 'invalid'
and object_type = 'procedure') loopstrsql := 'alter
procedure ' || x.object_name || ' compile';begin execute
immediate strsql; exception--when others then null;
when others then dbms_output.put_line(sqlerrm);
end;end loop;end;
|