Cheeky Cockatoo

rem see note 2105130.6
col name format a30
col lmode for a30

select d.Name, d.LOCKID, d.EXPIRATION,
       l.sid, l.lmode
from sys.dbms_lock_allocated d,
     v$lock l
where  d.LOCKID = l.id1
order by d.Name
/