doc

    Name:    samepcm.sql

    Author:  Mark Gurry

    The following query shows which objects share the same PCM lock.

#

SELECT MOD(header_block, lprime(r.value * 1.5) lock_no,
              segment_name,
              segment_type
   FROM dba_segments , v$parameter
 WHERE name = 'gc_segments'
      AND segment_type in ('TABLE', 'INDEX', 'CLUSTER')
 ORDER BY lock_no;