Поиск виновника блокировки в Oracle. Скрипт.

select session_id,owner,name,osuser 
from DBA_DML_LOCKS,v$session
where session_id = sid
 

select wait.sid waitSid, 
       wait.UserName #b1b100;">as waitUser, 
       wait.Machine #b1b100;">as waitMachine, 
       wait.osuser  #b1b100;">as waitOsuser, 
       hold.sid holdSid,
       hold.UserName #b1b100;">as holdUser, 
       hold.Machine #b1b100;">as holdMachine,
       hold.osuser  #b1b100;">as holdOsuser,        
       g.Mode_Requested, 
       obj.name    
   from 
     dba_waiters g,
     v$session wait,
     v$session hold,
     sys.obj$ obj,
     v$session s
  where g.waiting_session=wait.SID and g.holding_session=hold.SID 
   and s.sid = wait.SID
   and obj.OBJ#(+) = s.ROW_WAIT_OBJ#;
 

SELECT s.*,
       l.lock_type,
       l.mode_held,
       l.mode_requested,
       l.lock_id1,
       'alter system kill session '''|| s.sid|| ','|| s.serial#|| ''' immediate;' kill_sid
FROM   dba_lock_internal l,
       v$session s
WHERE  s.sid = l.session_id
AND    UPPER(l.lock_id1) LIKE '%ПАКЕТ%'
AND    l.lock_type = 'Body Definition Lock'