ORA-04021再コンパイル時

Question

plsql用のモック・ライブラリを実装しようとしています。 格納されたオブジェクトを動的に再コンパイルしようとすると、ORA-04021エラーが発生します。

コードが

create or replace function perform return varchar2 is begin return 'zero'; end; 
/

create or replace procedure recompile(source in clob) 
is 
begin 
    execute immediate source; 
end; 
/

create or replace procedure recompile_usage 
is 
begin 
    recompile('create or replace function perform return varchar2 is begin return ''one''; end;'); 

    dbms_output.put_line(perform); 
    --execute immediate 'begin dbms_output.put_line(perform); end;'; 

    recompile('create or replace function perform return varchar2 is begin return ''two''; end;'); 
    dbms_output.put_line(perform); 

end; 
/

exec recompile_usage; 

であり、ここでそれが発生するタイムアウトのために約5〜10分かかり、出力

Function created. 

Procedure created. 

Procedure created. 

one 
BEGIN recompile_usage; END; 

* 
ERROR at line 1: 
ORA-04021: timeout occurred while waiting to lock object 
ORA-06512: at "UTP.RECOMPILE", line 4 
ORA-06512: at "UTP.RECOMPILE_USAGE", line 9 
ORA-06512: at line 1 

です。

再コンパイルするオブジェクトのロックを解除するにはどうすればよいですか？

Answer 1

コメントに完全に記載されているように、あなたが仕事を達成しようとしている方法では不可能です。 recompile_usageではなくRECOMPILEプロシージャを直接呼び出すことをお勧めします。

set sqlbl on; 
set define off; 

DECLARE 
    lv_sql VARCHAR2(32676); 
BEGIN 
    RECOMPILE(
    'create or replace function perform return varchar2 is begin return ''one''; end;' 
); 
    recompile(
    'create or replace function perform return varchar2 is begin return ''two''; end;' 
); 
END; 

-----------------------------OUTPUT-------------------------------------------- 

anonymous block completed 

SELECT OBJECT_NAME,OBJECT_TYPE,STATUS FROM ALL_OBJECTS 
WHERE object_name = 'PERFORM'; 


**OBJECT_NAME OBJECT_TYPE STATUS** 
PERFORM   FUNCTION VALID