How can I find out which tables are having DDL locks?

Question

I can see related information by querying DBA_DDL_LOCKS view, but it doesn't give me the information which tables are having DDL locks.
Is there a way I can find out which tables are having DDL locks?
Thanks!

Answer 1

Here's a long script written back in 2001. Still works:
BREAK on sid on serial# on username
COL sid        for 9999
COL serial#    for 99999
COL username   for a20
COL type       for a20    trunc
COL lmode      for a5     trunc
COL lrequest   for a4     trunc
COL detail     for a75    trunc
SELECT   s.sid
       , s.serial#
       , s.username
       , DECODE(
              l.TYPE
            -- Long locks
            , 'TM', 'dml/data enq (TM)'
            , 'TX', 'transac enq (TX) '
            , 'UL', 'pls usr lock (UL)'
            -- Short locks
            , 'BL', 'buf hash tbl (BL)'
            , 'CF', 'control file (CF)'
            , 'CI', 'cross inst f (CI)'
            , 'CU', 'cursor bind (CU) '
            , 'DF', 'data file (CF)   '
            , 'DL', 'direct load (DL) '
            , 'DM', 'mount/strtup (DM)'
            , 'DR', 'reco lock (DR)   '
            , 'DX', 'distrib tran (DX)'
            , 'FI', 'sga opn file (FI)'
            , 'FS', 'file set (FS)    '
            , 'IN', 'instance num (IN)'
            , 'IR', 'instce recvr (IR)'
            , 'IS', 'get state (IS)   '
            , 'IV', 'libcache inv (IV)'
            , 'JQ', 'job queue (JQ)   '
            , 'KK', 'log sw kick (KK) '
            , 'LS', 'log switch (LS)  '
            , 'MM', 'mount def (MM)   '
            , 'MR', 'media recvry (MR)'
            , 'PF', 'pwfile enq (PF)  '
            , 'PR', 'process strt (PR)'
            , 'RW', 'row wait (RW)    '
            , 'RT', 'redo thread (RT) '
            , 'SC', 'scn enq (SC)     '
            , 'SM', 'smon lock (SM)   '
            , 'SN', 'seqno instce (SN)'
            , 'SQ', 'seqno enq (SQ)   '
            , 'ST', 'space transc (ST)'
            , 'SV', 'seqno value (SV) '
            , 'TA', 'generic enq (TA) '
            , 'TD', 'dll enq (TD)     '
            , 'TE', 'extend seg (TE)  '
            , 'TS', 'temp segment (TS)'
            , 'TT', 'temp table (TT)  '
            , 'UN', 'user name (UN)   '
            , 'WL', 'write redo (WL)  '
            , 'TYPE = ' || l.TYPE) AS type
       , DECODE(l.lmode, 0, 'none', 1, 'null', 2, 'RS', 3, 'RX', 4, 'S', 5, 'SRX', 6, 'X', TO_CHAR(l.lmode)) A
S lmode
       , DECODE(l.request, 0, 'none', 1, 'null', 2, 'RS', 3, 'RX', 4, 'S', 5, 'SRX', 6, 'X', TO_CHAR(l.request
)) AS lrequest
       , DECODE(
              l.TYPE
            , 'JQ', 'Job #' || j.job || ' (' || j.what || ') owned by: ' || j.username
            , 'MR', DECODE(s.user_type, 'BG', 'DICTIONARY OBJECT', LOWER(obj.owner) || '.' || LOWER(obj.name))
|| ' (' || LOWER(obj.TYPE) || ')'
            , 'RT', 'thread #' || LOWER(l.id1)
            , 'RW', 'file#' || LOWER(SUBSTR(l.id1, 1, 3)) || ', block#' || LOWER(SUBSTR(l.id1, 4, 5)) || ', ro
w#' || LOWER(l.id2)
            , 'TD', 'object: ' || LOWER(obj.owner) || '.' || LOWER(obj.name) || ' (' || LOWER(obj.TYPE) || ')'
            , 'TM', 'object: ' || LOWER(obj.owner) || '.' || LOWER(obj.name) || ' (' || LOWER(obj.TYPE) || ')'
            , 'TS', DECODE(l.id2, 0, 'enqueue', 'new block allocation')
            , 'TX', DECODE(
                         lo.object_name
                       , NULL, 'rbs #' || TRUNC(l.id1 / 65536) || ', slot #' || LOWER(l.id1)
                       , 'rbs #' || TRUNC(l.id1 / 65536) || ', slot #' || LOWER(l.id1) || ', object: ' || LOWE
R(lo.object_name))
            , 'UL', 'lock name: ' || la.name || ', expiration date: ' || TO_CHAR(la.expiration, 'DD-MON-RR HH2
4:MI:SS')
            , 'WL', 'redo log file#' || LOWER(l.id1)
            , 'id1 = ' || l.id1 || ', id2 = ' || l.id2) AS detail
    FROM sys.v_$lock l
       , (SELECT a.sid
               , a.serial#
               , NVL(a.username, 'SYS (' || LOWER(b.name) || ')') AS username
               , DECODE(a.username, NULL, 'BG', 'USER') AS user_type
            FROM sys.v_$session a
               , sys.v_$bgprocess b
           WHERE a.paddr = b.paddr(+)) s
       , (SELECT o.obj#
               , u.name AS owner
               , o.name
               , DECODE(
                      o.type#
                    , 0, 'NEXT OBJECT'
                    , 1, 'INDEX'
                    , 2, 'TABLE'
                    , 3, 'CLUSTER'
                    , 4, 'VIEW'
                    , 5, 'SYNONYM'
                    , 6, 'SEQUENCE'
                    , 7, 'PROCEDURE'
                    , 8, 'FUNCTION'
                    , 9, 'PACKAGE'
                    , 11, 'PACKAGE BODY'
                    , 12, 'TRIGGER'
                    , 13, 'TYPE'
                    , 14, 'TYPE BODY'
                    , 19, 'TABLE PARTITION'
                    , 20, 'INDEX PARTITION'
                    , 22, 'LIBRARY'
                    , 23, 'DIRECTORY'
                    , 24, 'QUEUE'
                    , 28, 'JAVA SOURCE'
                    , 29, 'JAVA CLASS'
                    , 30, 'JAVA RESOURCE'
                    , 32, 'INDEXTYPE'
                    , 33, 'OPERATOR'
                    , 34, 'TABLE SUBPARTITION'
                    , 35, 'INDEX SUBPARTITION'
                    , 39, 'LOB PARTITION'
                    , 40, 'LOB SUBPARTITION'
                    , 43, 'DIMENSION'
                    , 44, 'CONTEXT'
                    , 47, 'RESOURCE PLAN'
                    , 48, 'CONSUMER GROUP'
                    , 51, 'SUBSCRIPTION'
                    , 52, 'LOCATION'
                    , 'UNDEFINED') AS type
            FROM sys.obj$ o
               , sys.user$ u
           WHERE o.owner# = u.user#) obj
       , (SELECT vlo.xidusn
               , vlo.xidslot
               , vlo.xidsqn
               , vlo.process
               , o.owner || '.' || o.object_name AS object_name
            FROM sys.v_$locked_object vlo
               , sys.dba_objects o
           WHERE vlo.object_id = o.object_id) lo
       , (SELECT job
               , schema_user AS username
               , what
            FROM dba_jobs) j
       , sys.dbms_lock_allocated la
   WHERE l.sid = s.sid
     AND l.id1 = obj.obj#(+)
     AND l.id2 = j.job(+)
     AND TRUNC(l.id1 / 65536) = lo.xidusn(+)
     AND LOWER(l.id1) = lo.xidslot(+)
     AND l.id2 = lo.xidsqn(+)
     AND l.id1 = la.lockid(+)
     AND l.TYPE != 'MR'
UNION ALL
                  /*** LATCH HOLDERS ***/
SELECT   s.sid
       , s.serial#
       , s.username
       , 'latch'
       , 'X'
       , 'none'
       , h.name || ' addr=' || LOWER(RAWTOHEX(laddr)) AS object
    FROM sys.v_$process p
       , sys.v_$session s
       , sys.v_$latchholder h
   WHERE h.pid = p.pid
     AND p.addr = s.paddr
UNION ALL
                  /*** LATCH WAITERS ***/
SELECT   s.sid
       , s.serial#
       , s.username
       , 'latch'
       , 'none'
       , 'X'
       , name || ' latch=' || p.latchwait AS object
    FROM sys.v_$session s
       , sys.v_$process p
       , sys.v_$latch l
   WHERE latchwait IS NOT NULL
     AND p.addr = s.paddr
     AND p.latchwait = l.addr
ORDER BY sid
       , serial#
       , username
       , 4
       , 5
       , 6
       , 7;