List Locked objects

Execute the following query to obtain the list of locked or in use database objects in hierarchical format. 



set linesize 10000
col username format a25
col owner format a15
col object_name format a30
col object_type format a15
col session_id format 99999
col locked_mode format a15
col machine format a25

/* query to check locks */ 

SELECT LPAD('|---',DECODE(l.xidusn,0,3,0))||l.oracle_username "UserName", 
       o.owner, 
       object_name, 
       o.object_type, 
       l.session_id, 
       s.serial#, 
       decode(locked_mode, 0, '0-None',1,'1-Null',2,'2-Row-S (SS)',3,

       '3-Row-X (SX)',4,'Share',5,'5-S/Row-X (SSX)',6,'6-Exclusive',locked_mode) locked_mode,
       s.status, 
       s.osuser,
       s.machine
FROM   gv$locked_object l, dba_objects o, gv$session s
WHERE  l.object_id = o.object_id
  AND  l.session_id = s.sid
ORDER BY o.object_id DESC;