【Oracle脚本】检查Oracle数据库的DX锁

set linesize 300
set pagesize 200
column  blocker  format a10
column  blockee  format a10
column  blocker_sql format a30
column  blockee_sql format a30
column  blocker_machine format a30
column  blocker_program format a30
column  blocker_event format a30
column  blockee_machine format a30
column  blockee_program format a30
column  blockee_event format a30
SELECT s1.username            "WAIT",
s1.machine             "Machine",
w.sid,
s1.serial#,
s1.SQL_ID,
trim(P1.spid)                 "PID",
--       S1.INST_ID            "INSTANCE",
S1.INST_ID             "IN",
s2.username             "HOLD",
s2.machine              "Machine",
h.sid,
s2.serial#,
s2.sql_id,
trim(p2.spid)                  "PID",
--       S2.INST_ID             "INSTANCE",
S2.INST_ID              "IN",
S2.PROCESS
FROM   gv$process P1,    gv$process P2,
gv$session S1,    gv$session S2,
gv$lock w,          gv$lock h
WHERE
(((h.LMODE != 0) and (h.LMODE != 1)
and ((h.REQUEST = 0) or (h.REQUEST = 1)))
and  (((w.LMODE= 1) or (w.LMODE = 0))
and ((w.REQUEST != 1) and (w.REQUEST != 0))))
and  w.type =  h.type
and  w.id1  =  h.id1
and  w.id2  =  h.id2
and  w.sid     !=  h.sid
and  w.sid       = S1.sid
and  h.sid       = S2.sid
and  S1.EVENT  ='enq: DX - contention'
AND    S1.paddr           = P1.addr
AND    S2.paddr           = P2.addr
order by "WAIT",h.CTIME;