在metalink上看到一個腳本（get_locked_objects_rpt.sql），非常不錯，如下所示
/*----------------------------------------------------------------------------+
| MODULE: get_locked_objects_rpt.sql
|
| DESCRIPTION:
|
| Script to retrieve a list of locked objects from the database and identify
| the object being locked, and its rowid, and the SQL being blocked.
|
| INFORMATION:
|
| BRM Performance Tools ...
|
| REVISION:
|
| $Revision: 1.4 $
| $Author: pin $
| $Date: 2013/09/16 13:15:22 $
+----------------------------------------------------------------------------*/
set serveroutput on size unlimited
set feedback off
DECLARE
v_num_sessions INTEGER := 0;
CURSOR cv IS
SELECT dba_objects.object_name,
locks_t.row#,
locks_t.blocked_secs,
locks_t.blocker_text,
locks_t.blocked_text,
locks_t.blocked_sql_text
FROM (SELECT /*+ NO_MERGE */
blocking_lock_session.username||'@'||blocking_lock_session.machine||'(SID='||blocking_lock_session.sid||') ['||
blocking_lock_session.program||'/PID='||blocking_lock_session.process||']' as blocker_text,
blocked_lock_session.username||'@'||blocked_lock_session.machine|| '(SID='||blocked_lock_session.sid||') ['||
blocked_lock_session.program||'/PID='||blocked_lock_session.process||']' as blocked_text,
blocked_lock_session.row_wait_obj#,
blocked_lock_session.row_wait_file#,
blocked_lock_session.row_wait_block#,
blocked_lock_session.row_wait_row#,
DBMS_ROWID.ROWID_CREATE (1,
blocked_lock_session.row_wait_obj#,
blocked_lock_session.row_wait_file#,
blocked_lock_session.row_wait_block#,
blocked_lock_session.row_wait_row#) row#,
blocked_lock_session.seconds_in_wait blocked_secs,
blocked_sql.sql_text blocked_sql_text
FROM v$lock blocking_lock,
v$session blocking_lock_session,
v$lock blocked_lock,
v$session blocked_lock_session,
v$sql blocked_sql
WHERE blocking_lock.block = 1
AND blocking_lock.id1 = blocked_lock.id1
AND blocking_lock.id2 = blocked_lock.id2
AND blocked_lock.request > 0
AND blocking_lock.sid = blocking_lock_session.sid
AND blocked_lock.sid = blocked_lock_session.sid
AND blocked_lock_session.sql_id = blocked_sql.sql_id
AND blocked_lock_session.sql_child_number = blocked_sql.child_number
) locks_t,
dba_objects
WHERE locks_t.row_wait_obj# = dba_objects.object_id
AND locks_t.blocked_secs > &1
ORDER BY locks_t.blocked_secs;
BEGIN
FOR cv_rec IN cv LOOP
dbms_output.put_line(
'========= $Revision: 1.4 $ ($Date: 2013/09/16 13:15:22 $) ===========');
v_num_sessions := v_num_sessions + 1;
dbms_output.put_line('Locked object : '||cv_rec.object_name);
dbms_output.put_line('Locked row# : '||cv_rec.row#);
dbms_output.put_line('Blocked for : '||cv_rec.blocked_secs||' seconds');
dbms_output.put_line('Blocker info. : '||cv_rec.blocker_text);
dbms_output.put_line('Blocked info. : '||cv_rec.blocked_text);
dbms_output.put_line('Blocked SQL : '||cv_rec.blocked_sql_text);
END LOOP;
dbms_output.new_line;
dbms_output.put_line('Found '||TO_CHAR(v_num_sessions)||' blocked session(s).');
END;
/
exit;
那麼我們來測試一下，新建3個會話來測試驗證：
1： 在會話ID為11的窗口執行下面SQL語句
SQL> create table test(id number, name varchar2(12));
Table created.
SQL> insert into test values(1001,'kerry');
1 row created.
SQL> commit;
Commit complete.
SQL> update test set name='jimmy' where id=1001;
1 row updated.
2：在會話ID為192的窗口執行下面語句。
SQL> update test set name='tina' where id=1001;
1 row updated.
3： 在會話窗口3執行下面語句查看阻塞或鎖定對象情況,輸入查詢阻塞多少秒以上的SQL
[oracle@DB-Server ~]$ sqlplus / as sysdba
SQL*Plus: Release 11.2.0.1.0 Production on Fri Aug 19 16:14:25 2016
Copyright (c) 1982, 2009, Oracle. All rights reserved.
Connected to:
Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - 64bit Production
With the Partitioning, OLAP, Data Mining and Real Application Testing options
SQL> @get_locked_objects_rpt.sql
Enter value for 1: 10
old 42: AND locks_t.blocked_secs > &1
new 42: AND locks_t.blocked_secs > 10
========= $Revision: 1.4 $ ($Date: 2013/09/16 13:15:22 $) ===========
Locked object : TEST
Locked row# : AAASEkAAEAAAADUAAA
Blocked for : 34 seconds
Blocker info. : [email protected](SID=11)
[[email protected] (TNS V1-V3)/PID=3971]
Blocked info. : [email protected](SID=192)
[[email protected] (TNS V1-V3)/PID=4046]
Blocked SQL : update test set name='tina' where id=1001
Found 1 blocked session(s).
Disconnected from Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - 64bit Production
With the Partitioning, OLAP, Data Mining and Real Application Testing options
參考資料：
Information To Collect When High Row-Lock Contention Is Seen In The BRM DB (文檔 ID 1356147.1)
