TOM大师脚本-show space 多个版本，谢谢大牛们

 

 

 

 

示例一

该脚本需区分 对象的管理方式是 自动还是 手动, 对手动管理方式 的表显示很全面

SQL> exec show_space_old('MAN_TAB','DEV','TABLE'); Free Blocks.............................4 Total Blocks............................2560 Total bytes.............................20971520 Unused Blocks...........................98 Unused bytes............................802816 Last Used Ext Fileid....................5 Last Used Ext Blocked...................7296 Last Used Block.........................30     SQL>  exec show_space_old('AUTO_TAB','DEV','TABLE'); BEGIN show_space_old('AUTO_TAB','DEV','TABLE'); END;   * ERROR at line 1: ORA-10618: Operation not allowed on this segment ORA-06512: at "SYS.DBMS_SPACE", line 191 ORA-06512: at "DEV.SHOW_SPACE_OLD", line 21 ORA-06512: at line 1

 

Show_space_old,脚本如下:

create or replace procedure show_space_old ( p_segname in varchar2, p_owner in varchar2 default 'dev', p_type in varchar2 default 'TABLE', p_partition in varchar2 default null) as 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,'.')||p_num); end;  begin dbms_space.free_blocks( segment_owner=> p_owner, segment_name=> p_segname, segment_type=> p_type, partition_name=> p_partition, freelist_group_id=> 0, free_blks=> l_free_blks);   dbms_space.unused_space( segment_owner => p_owner, segment_name => p_segname, segment_type =>  p_type, partition_name => p_partition, 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);   p('Free Blocks',l_free_blks); p('Total Blocks',l_total_blocks); p('Total bytes',l_total_bytes); p('Unused Blocks',l_unused_blocks); p('Unused bytes',l_unused_bytes); p('Last Used Ext Fileid',l_lastusedextfileid); p('Last Used Ext Blocked',l_lastusedextblockid); p('Last Used Block',l_last_used_block); end show_space_old;

 

示例二

该脚本需区分 对象的管理方式是 自动还是 手动,对 自动管理方式 的表显示很全面

SQL> exec show_space_1810('MAN_TAB','DEV','TABLE'); Total Blocks............................2560 Total Bytes.............................20971520 Unused Blocks...........................98 Unused Bytes............................802816 Last Used Ext FileId....................5 Last Used Ext BlockId...................7296 Last Used Block.........................30 BEGIN show_space_1810('MAN_TAB','DEV','TABLE'); END;   * ERROR at line 1: ORA-10614: Operation not allowed on this segment ORA-06512: at "SYS.DBMS_SPACE", line 214 ORA-06512: at "DEV.SHOW_SPACE_1810", line 93 ORA-06512: at line 1   SQL> exec show_space_1810('AUTO_TAB','DEV','TABLE'); Total Blocks............................3840 Total Bytes.............................31457280 Unused Blocks...........................0 Unused Bytes............................0 Last Used Ext FileId....................4 Last Used Ext BlockId...................4224 Last Used Block.........................128 ************************************************* The segment is analyzed 0% -- 25% free space blocks.............3 0% -- 25% free space bytes..............24576 25% -- 50% free space blocks............1 25% -- 50% free space bytes.............8192 50% -- 75% free space blocks............0 50% -- 75% free space bytes.............0 75% -- 100% free space blocks...........23 75% -- 100% free space bytes............188416 Unused Blocks...........................62 Unused Bytes............................507904 Total Blocks............................3683 Total bytes.............................30171136

 

 

Show_space_1810,脚本如下:

create or replace procedure show_space_1810 ( p_segname_1 in varchar2, p_owner_1 in varchar2 default user, p_type_1 in varchar2 default 'TABLE', p_space in varchar2 default 'AUTO', p_analyzed in varchar2 default 'Y' ) as p_segname varchar2(100); p_type varchar2(10); p_owner varchar2(30);   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,'.') || 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 = 'i' or p_type_1 = 'I') then --rainy changed p_type := 'INDEX'; end if;   if (p_type_1 = 't' or p_type_1 = 'T') then --rainy changed p_type := 'TABLE'; end if;   if (p_type_1 = 'c' or p_type_1 = 'C') then --rainy changed p_type := 'CLUSTER'; 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 = 'MANUAL' or (p_space <> 'auto' and p_space <> 'AUTO') 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( 'Free Blocks', l_free_blks ); end if;   p( 'Total Blocks', l_total_blocks ); p( 'Total Bytes', l_total_bytes ); p( 'Unused Blocks', l_unused_blocks ); p( 'Unused Bytes', l_unused_bytes ); p( 'Last Used Ext FileId', l_LastUsedExtFileId ); p( 'Last Used Ext BlockId', l_LastUsedExtBlockId ); p( 'Last Used Block', l_LAST_USED_BLOCK );     /*IF the segment is analyzed */ if p_analyzed = 'Y' 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(' ',50,'*')); dbms_output.put_line('The segment is analyzed'); p( '0% -- 25% free space blocks', l_fs1_blocks); p( '0% -- 25% free space bytes', l_fs1_bytes); p( '25% -- 50% free space blocks', l_fs2_blocks); p( '25% -- 50% free space bytes', l_fs2_bytes); p( '50% -- 75% free space blocks', l_fs3_blocks); p( '50% -- 75% free space bytes', l_fs3_bytes); p( '75% -- 100% free space blocks', l_fs4_blocks); p( '75% -- 100% free space bytes', l_fs4_bytes); p( 'Unused Blocks', l_unformatted_blocks ); p( 'Unused Bytes', l_unformatted_bytes ); p( 'Total Blocks', l_full_blocks); p( 'Total bytes', l_full_bytes);   end if;   end show_space_1810;

 

**************************** 3 **************************************

示例三

该脚本需 区分 对象的管理方式是 自动还是 手动,只对管理方式是 手动管理 的表有效

SQL> exec show_space('MAN_TAB','DEV','TABLE'); Free Blocks.............................4 Total Blocks............................2560 Total bytes.............................20971520 Unused Blocks...........................98 Unused bytes............................802816 Last Used Ext Fileid....................5 Last Used Ext Blocked...................7296 Last Used Block.........................30   PL/SQL procedure successfully completed.   SQL> exec show_space('AUTO_TAB','DEV','TABLE'); BEGIN show_space('AUTO_TAB','DEV','TABLE'); END;   * ERROR at line 1: ORA-10618: Operation not allowed on this segment ORA-06512: at "SYS.DBMS_SPACE", line 191 ORA-06512: at "DEV.SHOW_SPACE", line 21 ORA-06512: at line 1

 

 

Show_space脚本,如下:

create or replace procedure show_space ( p_segname in varchar2, p_owner in varchar2 default 'dev', p_type in varchar2 default 'TABLE', p_partition in varchar2 default null) as 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,'.')||p_num); end;  begin dbms_space.free_blocks( segment_owner=> p_owner, segment_name=> p_segname, segment_type=> p_type, partition_name=> p_partition, freelist_group_id=> 0, free_blks=> l_free_blks);   dbms_space.unused_space( segment_owner => p_owner, segment_name => p_segname, segment_type =>  p_type, partition_name => p_partition, 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);   p('Free Blocks',l_free_blks); p('Total Blocks',l_total_blocks); p('Total bytes',l_total_bytes); p('Unused Blocks',l_unused_blocks); p('Unused bytes',l_unused_bytes); p('Last Used Ext Fileid',l_lastusedextfileid); p('Last Used Ext Blocked',l_lastusedextblockid); p('Last Used Block',l_last_used_block); end show_space;

 

 

**************************** 4 **************************************

示例四

该脚本不需 区分 对象的管理方式是 自动还是 手动,确实很智能

SQL> exec show_space_1052(P_SEGNAME_1=>'MAN_TAB',P_TYPE_1=>'TABLE',P_OWNER_1=>'DEV'); Free Blocks.............................4 Total Blocks............................2560 Total Bytes.............................20971520 Unused Blocks...........................98 Unused Bytes............................802816 Last Used Ext FileId....................5 Last Used Ext BlockId...................7296 Last Used Block.........................30   SQL> exec show_space_1052(P_SEGNAME_1=>'AUTO_TAB',P_TYPE_1=>'TABLE',P_OWNER_1=>'DEV'); Total Blocks............................3840 Total Bytes.............................31457280 Unused Blocks...........................0 Unused Bytes............................0 Last Used Ext FileId....................4 Last Used Ext BlockId...................4224 Last Used Block.........................128

 

执行该脚本,需要事先 授予 对象的 select权限,如下

SQL> grant select on dba_segments  to public;   Grant succeeded.   SQL> grant select on dba_tablespaces to public;   Grant succeeded.   SQL> grant select on dba_tablespaces to dev;   Grant succeeded.   SQL> grant select on dba_segments  to  dev;   Grant succeeded.

 

 

show_space_1052脚本如下:

create or replace procedure show_space_1052 ( p_segname_1 in varchar2, p_type_1 in varchar2 default 'TABLE' , p_analyzed in varchar2 default 'N', p_owner_1 in varchar2 default user) authid current_user as p_segname varchar2(100); p_type varchar2(10); p_owner varchar2(30); p_space varchar2(10);   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,'.') || 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 = 'i' or p_type_1 = 'I') then --rainy changed p_type := 'INDEX'; end if;   if (p_type_1 = 't' or p_type_1 = 'T') then --rainy changed p_type := 'TABLE'; end if;   if (p_type_1 = 'c' or p_type_1 = 'C') then --rainy changed p_type := 'CLUSTER'; end if;   select t.segment_space_management into p_space from dba_tablespaces t , dba_segments s where s.tablespace_name = t.tablespace_name and s.segment_name = p_segname and s.owner = p_owner and s.segment_type = p_type ; -- RollingPig change it. -- if you compile with error,you may login with sys and grant select on dba_tablespace,dba_segments to current_user   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 = 'MANUAL' or (p_space <> 'auto' and p_space <> 'AUTO') 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( 'Free Blocks', l_free_blks ); end if;   p( 'Total Blocks', l_total_blocks ); p( 'Total Bytes', l_total_bytes ); p( 'Unused Blocks', l_unused_blocks ); p( 'Unused Bytes', l_unused_bytes ); p( 'Last Used Ext FileId', l_LastUsedExtFileId ); p( 'Last Used Ext BlockId', l_LastUsedExtBlockId ); p( 'Last Used Block', l_LAST_USED_BLOCK );     /*IF the segment is analyzed */ if p_analyzed = 'Y' 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(' ',50,'*')); dbms_output.put_line('The segment is analyzed'); p( '0% -- 25% free space blocks', l_fs1_blocks); p( '0% -- 25% free space bytes', l_fs1_bytes); p( '25% -- 50% free space blocks', l_fs2_blocks); p( '25% -- 50% free space bytes', l_fs2_bytes); p( '50% -- 75% free space blocks', l_fs3_blocks); p( '50% -- 75% free space bytes', l_fs3_bytes); p( '75% -- 100% free space blocks', l_fs4_blocks); p( '75% -- 100% free space bytes', l_fs4_bytes); p( 'Unused Blocks', l_unformatted_blocks ); p( 'Unused Bytes', l_unformatted_bytes ); p( 'Total Blocks', l_full_blocks); p( 'Total bytes', l_full_bytes);   end if;   end show_space_1052;

 

示例五

该脚本不需 区分 对象的管理方式是 自动还是 手动,确实很智能,只是简单的 把 输入参数 upper处理下

SQL> exec show_space_1052(P_SEGNAME=>'MAN_TAB',P_TYPE=>'TABLE',P_OWNER=>'DEV'); Free Blocks.............................4 Total Blocks............................2560 Total Bytes.............................20971520 Unused Blocks...........................98 Unused Bytes............................802816 Last Used Ext FileId....................5 Last Used Ext BlockId...................7296 Last Used Block.........................30   SQL> exec show_space_1052(P_SEGNAME_1=>'AUTO_TAB',P_TYPE_1=>'TABLE',P_OWNER_1=>'DEV'); Total Blocks............................3840 Total Bytes.............................31457280 Unused Blocks...........................0 Unused Bytes............................0 Last Used Ext FileId....................4 Last Used Ext BlockId...................4224 Last Used Block.........................128

 

执行该脚本,需要事先 授予 对象的 select权限,如下

SQL> grant select on dba_segments  to public;   Grant succeeded.   SQL> grant select on dba_tablespaces to public;   Grant succeeded.   SQL> grant select on dba_tablespaces to dev;   Grant succeeded.   SQL> grant select on dba_segments  to  dev;   Grant succeeded.

 

 

show_space_1052脚本如下:  只是稍微修改下,把输入参数 upper 处理

create or replace procedure show_space_1052 ( p_segname in varchar2, p_type in varchar2 default 'TABLE' , p_analyzed in varchar2 default 'N', p_owner in varchar2 default user) authid current_user as p_segname varchar2(100); p_type varchar2(10); p_owner varchar2(30); p_space varchar2(10);   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,'.') || 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 = 'i' or p_type_1 = 'I') then --rainy changed p_type := 'INDEX'; end if;   if (p_type_1 = 't' or p_type_1 = 'T') then --rainy changed p_type := 'TABLE'; end if;   if (p_type_1 = 'c' or p_type_1 = 'C') then --rainy changed p_type := 'CLUSTER'; end if;   select t.segment_space_management into p_space from dba_tablespaces t , dba_segments s where s.tablespace_name = t.tablespace_name and s.segment_name = p_segname and s.owner = p_owner and s.segment_type = p_type ; -- RollingPig change it. -- if you compile with error,you may login with sys and grant select on dba_tablespace,dba_segments to current_user   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 = 'MANUAL' or (p_space <> 'auto' and p_space <> 'AUTO') 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( 'Free Blocks', l_free_blks ); end if;   p( 'Total Blocks', l_total_blocks ); p( 'Total Bytes', l_total_bytes ); p( 'Unused Blocks', l_unused_blocks ); p( 'Unused Bytes', l_unused_bytes ); p( 'Last Used Ext FileId', l_LastUsedExtFileId ); p( 'Last Used Ext BlockId', l_LastUsedExtBlockId ); p( 'Last Used Block', l_LAST_USED_BLOCK );     /*IF the segment is analyzed */ if p_analyzed = 'Y' 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(' ',50,'*')); dbms_output.put_line('The segment is analyzed'); p( '0% -- 25% free space blocks', l_fs1_blocks); p( '0% -- 25% free space bytes', l_fs1_bytes); p( '25% -- 50% free space blocks', l_fs2_blocks); p( '25% -- 50% free space bytes', l_fs2_bytes); p( '50% -- 75% free space blocks', l_fs3_blocks); p( '50% -- 75% free space bytes', l_fs3_bytes); p( '75% -- 100% free space blocks', l_fs4_blocks); p( '75% -- 100% free space bytes', l_fs4_bytes); p( 'Unused Blocks', l_unformatted_blocks ); p( 'Unused Bytes', l_unformatted_bytes ); p( 'Total Blocks', l_full_blocks); p( 'Total bytes', l_full_bytes);   end if;   end show_space_1052;

转载于:https://www.cnblogs.com/iyoume2008/p/5242328.html