get_locked_objects_rpt.sql

在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. : TEST@DB-Server.localdomain(SID=11)
[sqlplus@DB-Server.localdomain (TNS V1-V3)/PID=3971]
Blocked info. : TEST@DB-Server.localdomain(SID=192)
[sqlplus@DB-Server.localdomain (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)