ORA-04065和ORA-06508的一个bug

环境为：HP-UX ORACLE 10.2.0.3 RAC，系统在使用过程中反复出现类似如下错误：

Errors in file /opt/oracle/product/admin/orcl/udump/orcl1_ora_15627.trc:

ORA-12012: error on auto execute of job 61

ORA-04065: not executed, altered or dropped

ORA-04065: not executed, altered or dropped stored procedure "ZLHIS.ZL1_AUTOCPTONE"

ORA-06508: PL/SQL: could not find program unit being called: "ZLHIS.ZL1_AUTOCPTONE"

ORA-06512: at "ZLHIS.ZL1_AUTOCPTALL", line 27

ORA-06512: at line 1

将共享池flush或重新编译相关过程后，又可以使用一段时间;且相关指向procedure的同义词都是无效状态。经查询metalink是Oracle的一个bug，bug编号605008：

Applies to:

Oracle Server - Enterprise Edition - Version: 10.2.0.3

This problem can occur on any platform.

Symptoms

When loading certain PL/SQL packages the database continuously reports ORA-04068 errors.

Restarting database does not help. Flushing shared pool does not help.

We can see timestamp discrepancies exist for valid objects.

打了patch后，使用

1. 用sys登录数据库

2. 执行下列脚本，重新编译相关同义词

declare

cursor cur_syn is select do.name d_name, u.name owner

from sys.obj$ do, sys.dependency$ d, sys.obj$ po, user$ u

where P_OBJ#=po.obj#(+)

and D_OBJ#=do.obj#

and do.status=1 /*dependent is valid*/

and po.status=1 /*parent is valid*/

and po.stime!=p_timestamp /*parent timestamp not match*/

and do.owner#=u.user#

and do.type# = 5

order by 2,1;

v_syn_name obj$.name%TYPE;

v_tab_own user$.name%TYPE;

begin

OPEN cur_syn;

loop

FETCH cur_syn INTO v_syn_name,v_tab_own;

exit when cur_syn%notfound;

if v_tab_own = 'PUBLIC' then

execute immediate 'alter public synonym '||v_syn_name|| ' compile';

else

execute immediate 'alter synonym '||v_tab_own||'.'||v_syn_name|| ' compile';

end if;

end loop;

CLOSE cur_syn;

end;

/

3. 检查编译后的情况：

set pagesize 10000

set linesize 140

column d_name format a20

column p_name format a20

select do.obj# d_obj,do.name d_name, u.name owner, po.obj# p_obj,po.name p_name,

to_char(p_timestamp,'DD-MON-YYYY HH24:MI:SS') "P_Timestamp",

to_char(po.stime ,'DD-MON-YYYY HH24:MI:SS') "STIME",

decode(sign(po.stime-p_timestamp),0,'SAME','*DIFFER*') X

from sys.obj$ do, sys.dependency$ d, sys.obj$ po, user$ u

where P_OBJ#=po.obj#(+)

and D_OBJ#=do.obj#

and do.status=1 /*dependent is valid*/

and po.status=1 /*parent is valid*/

and po.stime!=p_timestamp /*parent timestamp not match*/

and do.owner#=u.user#

and do.type# = 5

order by 2,1;