1.查找被锁定的资源
  SELECT * FROM v$lock where request > 0;
2.查找引起锁的语句
  SELECT DECODE(request,0,'Holder: ','Waiter: ') ||sid sess,
  id1, id2, lmode, request, type,BLOCK
  FROM V$LOCK
  WHERE (id1, id2, type) IN (SELECT id1, id2, type FROM V$LOCK WHERE request > 0)
  ORDER BY id1, request;