自动编译无效存储过程

SET   PAGESIZE   0  
  SET   FEEDBACK   OFF  
  SET   VERIFY   OFF  
   
  SPOOL   TEMP.SQL  
   
  SELECT   'ALTER   '||   OBJECT_TYPE   ||   '   '   ||   OWNER   ||   '.'   ||   OBJECT_NAME   ||   '   COMPILE;'  
  FROM         ALL_OBJECTS  
  WHERE       STATUS             =   'INVALID'  
  AND           OWNER               =   DECODE(UPPER('&&NAME'),   'ALL',OWNER,   UPPER('&&NAME'));  
   
  SPOOL   OFF  
   
  @TEMP.SQL  
   
  SET   PAGESIZE   14  
  SET   FEEDBACK   ON  
  SET   VERIFY   ON  

转载于:https://www.cnblogs.com/deadshot123/archive/2007/01/10/616877.html