Узнать кто блокирует таблицу

Иногда бывают случаи что некоторые пользователи не могут внести данные из за того что кто то не поставил commit при внесении или изменении данных в таблице и из за этого идет подвисание программы.

Для этого необходимо узнать кто блокирует таблицу

Пример 1.

SELECT /*+ ORDERED*/
bs.username "Blocking User", 
bs.username "DB User", 
ws.username "Waiting User", 
bs.sid "SID", 
ws.sid "WSID", 
bs.sql_address "address", 
bs.sql_hash_value "Sql hash", 
bs.program "Blocking App", 
ws.program "Waiting App", 
bs.machine "Blocking Machine", 
ws.machine "Waiting Machine", 
bs.osuser "Blocking OS User", 
ws.osuser "Waiting OS User", 
bs.serial# "Serial#", 
DECODE(wk.TYPE, 
'MR', 'Media Recovery', 'RT', 'Redo Thread', 'UN', 'USER Name', 
'TX', 'Transaction', 'TM', 'DML', 'UL', 'PL/SQL USER LOCK', 
'DX', 'Distributed Xaction', 'CF', 'Control FILE', 'IS', 'Instance State', 
'FS', 'FILE SET', 'IR', 'Instance Recovery', 'ST', 'Disk SPACE Transaction', 
'TS', 'Temp Segment', 'IV', 'Library Cache Invalidation', 
'LS', 'LOG START OR Switch', 'RW', 'ROW Wait','SQ', 'Sequence Number', 
'TE', 'Extend TABLE', 'TT', 'Temp TABLE', wk.TYPE) lock_type, 
DECODE(hk.lmode, 0, 'None', 1, 'NULL', 2, 'ROW-S (SS)', 3, 'ROW-X (SX)', 
4, 'SHARE', 5, 'S/ROW-X (SSX)', 6, 'EXCLUSIVE', TO_CHAR(hk.lmode)) mode_held, 
DECODE(wk.request, 0, 'None', 1, 'NULL', 2, 'ROW-S (SS)', 3, 'ROW-X (SX)', 
4, 'SHARE', 5, 'S/ROW-X (SSX)', 6, 'EXCLUSIVE', TO_CHAR(wk.request)) mode_requested, 
TO_CHAR(hk.id1) lock_id1, 
TO_CHAR(hk.id2) lock_id2 
FROM 
v$lock hk, v$session bs, 
v$lock wk, v$session ws 
WHERE 
hk.block = 1 
AND hk.lmode != 0 
AND hk.lmode != 1 
AND wk.request != 0 
AND wk.TYPE (+) = hk.TYPE 
AND wk.id1 (+) = hk.id1 
AND wk.id2 (+) = hk.id2 
AND hk.sid = bs.sid(+) 
AND wk.sid = ws.sid(+)
ORDER BY 1

Пример 2.

SELECT 
o.owner, 
o.object_name, 
o.object_type, 
o.last_ddl_time, 
o.status, 
l.session_id, 
l.oracle_username,
Decode(l.locked_mode, 0, 'None',
1, 'Null (NULL)',
2, 'Row-S (SS)',
3, 'Row-X (SX)',
4, 'Share (S)',
5, 'S/Row-X (SSX)',
6, 'Exclusive (X)',
l.locked_mode) locked_mode
FROM dba_objects o, v$locked_object l
WHERE o.object_id = l.object_id

Ну а дальше дело Ваше. 

P.S. Из личного опыта обычно я использую 2 пример.