oracle工具：show_space简介createorreplaceprocedureshow_space(p_segname_1invarchar2,p_spaceinvarchar2default'MANUAL',p_type_1invarchar2default'
oracle工具：show_space简介
create or replace procedure show_space
( p_segname_1 in varchar2,
p_space in varchar2 default &＃39;MANUAL&＃39;,
p_type_1 in varchar2 default &＃39;TABLE&＃39; ,
p_analyzed in varchar2 default &＃39;N&＃39;,
p_owner_1 in varchar2 default user)
as
p_segname varchar2(100);
p_type varchar2(10);
p_owner varchar2(30);
www.2cto.com
l_unformatted_blocks number;
l_unformatted_bytes number;
l_fs1_blocks number;
l_fs1_bytes number;
l_fs2_blocks number;
l_fs2_bytes number;
l_fs3_blocks number;
l_fs3_bytes number;
l_fs4_blocks number;
l_fs4_bytes number;
l_full_blocks number;
l_full_bytes number;
l_free_blks number;
l_total_blocks number;
l_total_bytes number;
l_unused_blocks number;
l_unused_bytes number;
l_LastUsedExtFileId number;
l_LastUsedExtBlockId number;
l_LAST_USED_BLOCK number;
procedure p( p_label in varchar2, p_num in number )
is
begin
dbms_output.put_line( rpad(p_label,40,&＃39;.&＃39;) ||
p_num );
end;
begin
p_segname := upper(p_segname_1); -- rainy changed
p_owner := upper(p_owner_1);
p_type := p_type_1;
if (p_type_1 = &＃39;i&＃39; or p_type_1 = &＃39;I&＃39;) then --rainy changed
p_type := &＃39;INDEX&＃39;;
end if;
if (p_type_1 = &＃39;t&＃39; or p_type_1 = &＃39;T&＃39;) then --rainy changed
p_type := &＃39;TABLE&＃39;;
end if;
if (p_type_1 = &＃39;c&＃39; or p_type_1 = &＃39;C&＃39;) then --rainy changed
p_type := &＃39;CLUSTER&＃39;;
end if;
dbms_space.unused_space
( segment_owner => p_owner,
segment_name => p_segname,
segment_type => p_type,
total_blocks => l_total_blocks,
total_bytes => l_total_bytes,
unused_blocks => l_unused_blocks,
unused_bytes => l_unused_bytes,
LAST_USED_EXTENT_FILE_ID => l_LastUsedExtFileId,
LAST_USED_EXTENT_BLOCK_ID => l_LastUsedExtBlockId,
LAST_USED_BLOCK => l_LAST_USED_BLOCK );
if p_space = &＃39;MANUAL&＃39; or (p_space <> &＃39;auto&＃39; and p_space <> &＃39;AUTO&＃39;) then
dbms_space.free_blocks
( segment_owner => p_owner,
segment_name => p_segname,
segment_type => p_type,
freelist_group_id => 0,
free_blks => l_free_blks );
p( &＃39;Free Blocks&＃39;, l_free_blks );
end if;
p( &＃39;Total Blocks&＃39;, l_total_blocks );
p( &＃39;Total Bytes&＃39;, l_total_bytes );
p( &＃39;Unused Blocks&＃39;, l_unused_blocks );
p( &＃39;Unused Bytes&＃39;, l_unused_bytes );
p( &＃39;Last Used Ext FileId&＃39;, l_LastUsedExtFileId );
p( &＃39;Last Used Ext BlockId&＃39;, l_LastUsedExtBlockId );
p( &＃39;Last Used Block&＃39;, l_LAST_USED_BLOCK );
/*IF the segment is analyzed */
if p_analyzed = &＃39;Y&＃39; then
dbms_space.space_usage(segment_owner => p_owner ,
segment_name => p_segname ,
segment_type => p_type ,
unformatted_blocks => l_unformatted_blocks ,
unformatted_bytes => l_unformatted_bytes,
fs1_blocks => l_fs1_blocks,
fs1_bytes => l_fs1_bytes ,
fs2_blocks => l_fs2_blocks,
fs2_bytes => l_fs2_bytes,
fs3_blocks => l_fs3_blocks ,
fs3_bytes => l_fs3_bytes,
fs4_blocks => l_fs4_blocks,
fs4_bytes => l_fs4_bytes,
full_blocks => l_full_blocks,
full_bytes => l_full_bytes);
dbms_output.put_line(rpad(&＃39; &＃39;,50,&＃39;*&＃39;));
dbms_output.put_line(&＃39;The segment is analyzed&＃39;);
p( &＃39;0% -- 25% free space blocks&＃39;, l_fs1_blocks);
p( &＃39;0% -- 25% free space bytes&＃39;, l_fs1_bytes);
p( &＃39;25% -- 50% free space blocks&＃39;, l_fs2_blocks);
p( &＃39;25% -- 50% free space bytes&＃39;, l_fs2_bytes);
p( &＃39;50% -- 75% free space blocks&＃39;, l_fs3_blocks);
p( &＃39;50% -- 75% free space bytes&＃39;, l_fs3_bytes);
p( &＃39;75% -- 100% free space blocks&＃39;, l_fs4_blocks);
p( &＃39;75% -- 100% free space bytes&＃39;, l_fs4_bytes);
p( &＃39;Unused Blocks&＃39;, l_unformatted_blocks );
p( &＃39;Unused Bytes&＃39;, l_unformatted_bytes );
p( &＃39;Total Blocks&＃39;, l_full_blocks);
p( &＃39;Total bytes&＃39;, l_full_bytes);
end if;
end;
ASSM 类型的 表
SQL> exec show_space(&＃39;t&＃39;,&＃39;auto&＃39;);
Total Blocks............................512
Total Bytes.............................4194304
Unused Blocks...........................78
Unused Bytes............................638976
Last Used Ext FileId....................9
Last Used Ext BlockId...................25608
Last Used Block.........................50
PL/SQL procedure successfully completed.
www.2cto.com
ASSM 类型的索引
SQL> exec show_space(&＃39;t_index&＃39;,&＃39;auto&＃39;,&＃39;i&＃39;);
Total Blocks............................80
Total Bytes.............................655360
Unused Blocks...........................5
Unused Bytes............................40960
Last Used Ext FileId....................9
Last Used Ext BlockId...................25312
Last Used Block.........................3
PL/SQL procedure successfully completed.
www.2cto.com
对analyze 过的segment 可以这样
SQL> exec show_space(&＃39;t&＃39;,&＃39;auto&＃39;,&＃39;T&＃39;,&＃39;Y&＃39;);
Total Blocks............................512
Total Bytes.............................4194304
Unused Blocks...........................78
Unused Bytes............................638976
Last Used Ext FileId....................9
Last Used Ext BlockId...................25608
Last Used Block.........................50
*************************************************
The segment is analyzed
0% -- 25% free space blocks.............0
0% -- 25% free space bytes..............0
25% -- 50% free space blocks............0
25% -- 50% free space bytes.............0
50% -- 75% free space blocks............0
50% -- 75% free space bytes.............0
75% -- 100% free space blocks...........0
75% -- 100% free space bytes............0
Unused Blocks...........................0
Unused Bytes............................0
Total Blocks............................418
Total bytes.............................3424256
PL/SQL procedure successfully completed.
京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有 