Query to find lock objects in pl sql

SELECT
c.owner,
c.object_name,
c.object_type,
b.sid,
b.serial#,
b.status,
b.osuser,
b.machine,
inst_id
FROM
v$locked_object a,
v$session b,
gv$session gv,
dba_objects c
WHERE
b.sid = a.session_id
AND b.sid = gv.sid
AND b.serial# = gv.serial#
AND a.object_id = c.object_id;