-- #############################################################################################
--
-- %Purpose: Displays an ordered list of all non-index segments > 10 MB
--
-- #############################################################################################
--
select
   substr(owner,1,12) "Owner",
   substr(segment_name,1,30) "Segment Name",
   substr(segment_type,1,10) "Seg Type",
   substr(tablespace_name,1,15) "Tablespace",
   round(bytes/1000000) MB
from dba_segments
where (bytes > 10000000) and (segment_type <> 'INDEX')
order by bytes
/