查找当前谁正在使用某个package/procedure/function/view

摘自Itpub第二本书《Oracle数据库性能优化》中的《Library cache lock成因和解决方法的探讨》一文中的一个script

create or replace procedure who_is_using(obj_name varchar2)

is

begin

dbms_output.enable(1000000);

for i in (select distinct b.username,b.sid

from sys.x$kglpn a,v$session b,sys.x$kglob c

where a.kglpnuse=b.saddr

and upper(c.kglnaobj) like upper(obj_name)

and a.kglpnhdl=c.kglhdaddr) loop

dbms_output.put_line('('||to_char(i.sid)||' - '||i.username);

end loop;

end;

/

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/193161/viewspace-50198/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/193161/viewspace-50198/