set pagesize 999;
set linesize 132;

spool dbmap.lis;
break on today 
column today new_value _date
select to_char(SYSDATE, 'fmMonth DD, YYYY') today from dual;
clear breaks

prompt 
prompt ====================================== 
prompt   Tablespace/Datafile Listing 
prompt ===================================== 
prompt 
prompt 
column  "Location"              format A60; 
column  "Tablespace Name"       format A15; 
column  "Size(M)"               format 999,990; 
 
break on "Tablespace Name" skip 1 nodup; 
compute sum of "Size(M)" on "Tablespace Name"; 
 
SELECT  tablespace_name "Tablespace Name", 
        file_name "Location", 
        bytes/1048576 "Size(M)"  
FROM sys.dba_data_files 
order by tablespace_name; 
 
prompt 
prompt ====================================== 
prompt   Redo Log Listing 
prompt ===================================== 
prompt 
prompt 
column  "Group"         format 999; 
column  "File Location" format A80; 
column  "Bytes   (K)"     format 999,999,990; 
 
break on "Group" skip 1 nodup; 
 
 
select  a.group# "Group", 
        b.member "File Location", 
        a.bytes/1024 "Bytes (K)" 
from    v$log a, 
        v$logfile b 
where a.group# = b.group# 
order by 1,2; 

 
prompt 
prompt ====================================== 
prompt   Rollback Listing 
prompt ===================================== 
prompt 
prompt 
column  "Segment Name"  format A15; 
column  "Tablespace"    format A15; 
Column  "Initial (K)"   Format 99,990; 
Column  "Next (K)"      Format 99,990; 
column  "Min Ext."      FORMAT 99,990; 
column  "Max Ext."      FORMAT 99,990; 
column  "Status"        Format A7; 
 select  segment_name "Segment Name", 
        tablespace_name "Tablespace", 
        initial_extent/1024 "Initial (K)", 
        next_extent/1024 "Next (K)", 
        min_extents "Min Ext.", 
        max_extents "Max Ext.", 
        status "Status" 
from    sys.dba_rollback_segs 
order by tablespace_name, 
        segment_name;
spool off;

exit