在Oracle中重新编译所有无效的存储过程

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;