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;