自动编译失效存储过程

CREATE OR REPLACE PROCEDURE PRC_COMPILE_INVALID
IS
  --/************************************************************************************
  -- 程序名称:    PRC_COMPILE_INVALID
  -- 功能描述:    每天编译失效的存储过程和失效的索引

  v_sql       VARCHAR2(10000) DEFAULT ''; -- 动态SQL变量,注意SQL长度
  v_prc       VARCHAR2(40);
  v_date      VARCHAR2(8);
  v_stepnum   NUMBER          DEFAULT 0;           -- 运行步骤
  v_errmsg    VARCHAR2(1024)  DEFAULT '正常';
BEGIN
  v_prc:='PRC_COMPILE_INVALID';
  SELECT to_char(SYSDATE,'yyyymmdd') INTO v_date FROM  dual;
  --正文SQL处理
  --循环将无效存储过程取出 对其进行编译
  v_stepnum :=v_stepnum+1;
       For x In (Select Object_Name From user_objects Where Status = 'INVALID' And Object_Type = 'PROCEDURE') Loop
        v_sql := 'Alter Procedure ' || x.Object_Name || ' COMPILE';
        Begin
             EXECUTE IMMEDIATE v_sql;
        PRC_LOG_WRT(v_date,v_prc,v_stepnum,v_sql,v_errmsg,SQL%ROWCOUNT);
        COMMIT;
        End;
       End Loop;       
       
      --将无效索引取出  对其进行编译
     v_stepnum :=v_stepnum+1;
       FOR y In (SELECT  t.index_name from  all_indexes t WHERE t.owner='DBCHNADM' AND t.status='UNUSABLE') Loop
        v_sql := 'ALTER INDEX '||y.index_name ||' rebuild ';
        Begin
             EXECUTE IMMEDIATE v_sql;
        PRC_LOG_WRT(v_date,v_prc,v_stepnum,v_sql,v_errmsg,SQL%ROWCOUNT);
        COMMIT;
        End;
       End Loop;    
     
     -- 存储过程错误信息记录
  EXCEPTION
  WHEN OTHERS THEN

    v_errmsg := v_stepnum || '步出错：' || SQLERRM;
    PRC_LOG_WRT(v_date,v_prc,v_stepnum,v_sql,v_errmsg,-1);
    COMMIT;

END;