spool execcompproc.sql select 'alter procedure 
'||object_name||' compile;' from all_objects 
where status = 'invalid' and object_type = 'procedure'; 
spool off @execcompproc.sql;

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;

exec zl_compile_invalid_procedure;