清理Oracle历史数据的准备工作

客户要求近期对现网的2个项目的数据库中的历史数据进行清理，于是整理了下应用中的段使用情况，主要是看表段情况，使用的脚本如下。

create or replace procedure get_tab_rows

as

--Drop Table tabsrow

--Create Global Temporary Table tabsrow (Name Varchar2(30),Rowsnum Number) On Commit Delete Rows;

--Create Table tabsrow (Name Varchar2(30),Rowsnum Number) ;

V_SQL Varchar2(300);

Begin

Execute Immediate 'truncate table tabsrow';

For x In (Select OWNER,table_name From dba_tables Where owner='XXX' and table_name<>'test') Loop

V_SQL:='insert into tabsrow Select '''||x.table_name||''' ,Count(1) From '||X.OWNER||'.'||x.table_name;

Execute Immediate V_SQL;

End Loop;

commit;

End;

/

exec get_tab_rows;

Select a.Owner,

a.Table_Name,

--b.Segment_Name,

a.Tablespace_Name,

b.Bytes/1024/1024 as "size(Mb)",e.rowsnum,

--b.Blocks,

--c.Table_Name,

c.Partitioning_Type,

d.column_name

From Dba_Tables a

Left Join (Select b.Segment_Name, Sum(b.Bytes) Bytes, Sum(b.Blocks) Blocks

From Dba_Segments b

WHERE B.OWNER = 'XXX'

AND B.segment_type NOT IN ('INDEX')

Group By b.Segment_Name) B on a.Table_Name = b.Segment_Name

Left Join Dba_Part_Tables c On a.Table_Name = c.Table_Name

left join Dba_Part_Key_Columns d on d.owner = 'XXX'

and a.table_name = d.name

left join tabsrow e on a.table_name=e.name

Where a.Owner = 'XXX' order by "size(Mb)" desc;

drop procedure get_tab_rows;

Drop Table tabsrow;

-The End-