查找和编译失效PL/SQL对象

SET ECHO OFF


SET heading OFF


SET linesize 350


SET FEED OFF


SET TRIMS ON


SET NEWP NONE




SPOOL e: ecompile.SQL




SELECT 'alter '||OBJECT_TYPE||' '||OBJECT_NAME||' COMPILE;'||CHR(10)||'SHOW ERROR' FROM user_objects WHERE status='INVALID'


AND OBJECT_TYPE IN ('PROCEDURE','FUNCTION','PACKAGE','PACKAGE_BODY');




SPOOL OFF;




START e: ecompile.SQL; --执行这个SQL语句






--####################################################################--


--#查找失效对象#


--##############


--SELECT OBJECT_TYPE,OBJECT_NAME FROM user_objects


--WHERE status='INVALID' AND OBJECT_TYPE IN ('PROCEDURE','FUNCTION','PACKAGE','PACKAGE_BODY');






--####################################################################--


--#编译失效PL/SQL对象的函数


--#########################


--DBMS_DDL.ALTER_COMPILE(TYPE VARCHAR2,SCHEMA VARCHAR2,name VARCHAR2);


--TYPE: 'PROCEDURE','FUNCTION','PACKAGE','PACKAGE_BODY'


--eg：DBMS_DDL.ALTER_COMPILE('PROCEDURE',NULL,'intf_deal_request_p');






--####################################################################--


--#编译失效的PL/SQP对象#


--######################


SET SERVEROUTPUT ON




DECLARE


CURSOR cur_invalid_obj IS


SELECT object_type,object_name FROM user_objects WHERE status='INVALID';


rec_invalid_obj cur_invalid_obj%ROWTYPE;




vn_sqlcode NUMBER(10);


vs_sqlerrm VARCHAR(200);


BEGIN


OPEN cur_invalid_obj;


FETCH cur_invalid_obj INTO rec_invalid_obj;


WHILE cur_invalid_obj%FOUND LOOP


DBMS_OUTPUT.put_line('Recompiling '||rec_invalid_obj.object_type||':'||rec_invalid_obj.object_name||'.');




--1、使用函数


DBMS_DDL.ALTER_COMPILE(rec_invalid_obj.object_type,NULL,rec_invalid_obj.object_name);




--2、使用SQL语句


--ALTER rec_invalid_obj.object_type rec_invalid_obj.object_name COMPILE;


END LOOP;


CLOSE cur_invalid_obj;


EXCEPTION


WHEN OTHERS THEN


vn_sqlcode := SQLCODE;


vs_sqlerrm := SUBSTR(SQLERRM,1,200);


DBMS_OUTPUT.put_line('ERROR CODE='||vn_sqlcode);


DBMS_OUTPUT.put_line('ERROR MSG='||vs_sqlerrm);


IF cur_invalid_obj%ISOPEN THEN


CLOSE cur_invalid_obj;


END IF;


END;