SET PAGES 60
SET LINES 132
SET VER OFF
SELECT  TABLESPACE_NAME FROM DBA_TABLESPACES
/
ACCEPT TSPACE PROMPT 'Enter Tablespace name : '
spool mapper.lst
select 'FREE SPACE ' owner, '  ' object,
file_id,block_id,bytes
from dba_free_space
where  tablespace_name = upper('&tspace')
union
select substr(owner,1,20),
substr(segment_name,1,32),
file_id,block_id,bytes
from dba_extents
where tablespace_name = upper('&tspace')
order by 3,4
/
spool off