查找无效对象
你可以根据这个查询结果来判断使用下面的哪种方法来编译你数据库礼貌的无效对象.

COLUMN object_name FORMAT A30 
SELECT owner, 
object_type, 
object_name, 
STATUS 
FROM dba_objects 
WHERE STATUS = 'INVALID' 
ORDER BY owner, object_type, object_name;


1.手动编译
如果无效对象的数量很少,那么你可以逐个编译这些对象.
如:

ALTER PACKAGE my_package COMPILE; 
ALTER PACKAGE my_package COMPILE BODY; 
ALTER PROCEDURE my_procedure COMPILE; 
ALTER FUNCTION my_function COMPILE; 
ALTER TRIGGER my_trigger COMPILE; 
ALTER VIEW my_view COMPILE;

你也可以用DBMS_DDL包来编译(但只用于PL/SQL对象,所以你不用用它来编译视图等):

EXEC DBMS_DDL('PACKAGE', 'MY_SCHEMA', 'MY_PACKAGE'); 
EXEC DBMS_DDL('PACKAGE BODY', 'MY_SCHEMA', 'MY_PACKAGE'); 
EXEC DBMS_DDL('PROCEDURE', 'MY_SCHEMA', 'MY_PROCEDURE'); 
EXEC DBMS_DDL('FUNCTION', 'MY_SCHEMA', 'MY_FUNCTION'); 
EXEC DBMS_DDL('TRIGGER', 'MY_SCHEMA', 'MY_TRIGGER');

2.通用脚本
在某些情况下你可能有很多无效对象要编译,这样话手工编译就显得效率太低了.
在这种情况下你可以些一个通用的脚本生成编译脚本.
下面的脚本用来查询无效的package 和package body并生成便宜这些对象的脚本.
但是这方法不会考虑ORACLE对象之间的依赖关系.

SET SERVEROUTPUT ON SIZE 1000000 
BEGIN 
FOR cur_rec IN (SELECT owner, 
object_name, 
object_type, 
DECODE(object_type, 'PACKAGE', 1, 
'PACKAGE BODY', 2, 2) AS recompile_order 
FROM dba_objects 
WHERE object_type IN ('PACKAGE', 'PACKAGE BODY') 
AND STATUS != 'VALID' 
ORDER BY 4) 
LOOP 
BEGIN 
IF cur_rec.object_type = 'PACKAGE' THEN 
EXECUTE IMMEDIATE 'ALTER ' || cur_rec.object_type || 
' "' || cur_rec.owner || '"."' || cur_rec.object_name || '" COMPILE'; 
ElSE 
EXECUTE IMMEDIATE 'ALTER PACKAGE "' || cur_rec.owner || 
'"."' || cur_rec.object_name || '" COMPILE BODY'; 
END IF; 
EXCEPTION 
WHEN OTHERS THEN 
DBMS_OUTPUT.put_line(cur_rec.object_type || ' : ' || cur_rec.owner || 
' : ' || cur_rec.object_name); 
END; 
END LOOP; 
END; 
/

3.使用DBMS_UTILITY.compile_schema
使用这个包将会编译指定schema下的所有procedures, functions, packages, and triggers.
你可以在sqlplus 下使用它,如:
EXEC DBMS_UTILITY.compile_schema(schema => ‘SCOTT’);
4.使用UTL_RECOMP
UTL_RECOMP包有两个存储过程:RECOMP_SERIAL和RECPMP_PARALLEL
从存储过程的名字可以看出一个是非并行,一个是并行方式.
使用并行方式会加快编译速度,包的定义如下:

PROCEDURE RECOMP_SERIAL(
schema IN VARCHAR2 DEFAULT NULL,
flags IN PLS_INTEGER DEFAULT 0);

PROCEDURE RECOMP_PARALLEL(
threads IN PLS_INTEGER DEFAULT NULL,
schema IN VARCHAR2 DEFAULT NULL,
flags IN PLS_INTEGER DEFAULT 0);
参数使用方法:
schema
- 想编译的模式,如果为NULL,将编译数据库的所有无效对象.
threads
- 并行度,如果为NULL,会使用参数job_queue_processes的值.
通常threads的值最好和CPU的数量想匹配,以发挥并行的最大优势.
flags -
ORACLE内部使用的诊断测试参数.
如:

-- Schema level. 
EXEC UTL_RECOMP.recomp_serial('SCOTT'); 
EXEC UTL_RECOMP.recomp_parallel(4, 'SCOTT'); 
 
-- Database level. 
EXEC UTL_RECOMP.recomp_serial(); 
EXEC UTL_RECOMP.recomp_parallel(4); 
 
-- Using job_queue_processes value. 
EXEC UTL_RECOMP.recomp_parallel(); 
EXEC UTL_RECOMP.recomp_parallel(NULL, 'SCOTT');

UTL_RECOMP包的一些使用限制

(1).并行执行使用的是job队列.当运行并行编译的时候所有job都会被diable直到编译完成.
(2).包必须在sqlplus中以sys用户或者有sysdba权限的用户运行.
(3).UTL_RECOMP依赖于DBMS_STANDARD,DBMS_JOB,DBMS_RANDOM
(4).如果在运行这个包的时候执行DDL语句可能会导致死锁.

4.utlrp.sql 和 utlprp.sql
utlrp和utlprp脚本可以用来重编译数据库的所有无效对象.通常在数据库升级或者打补钉以后需要运行这个脚本.脚本位于
$ORACLE_HOME/rdbms/admin目录.你可以看到utlrp.sql只是调用utlprp.sql,utlrp.sql在调用utlprp.sql的时候会传递给它
一个参数,默认为0,这个参数其实就是并行度,其实utlprp.sql调用的是utl_recomp.recomp_parallel:
0 - 基于CPU_COUNT参数设置并行度.
1 - 以串行方式编译对象,一次编译一个.
N - 以N个并行度进行编译.
脚本需要以sys用户或者有sysdba权限的用户来运行.

Popularity: 22% [?]