show_space_assm包（可执行)

create or replace procedure show_space_assm(
p_segname in varchar2,
p_owner in varchar2 default user,
p_type in varchar2 default 'TABLE' )
as
l_fs1_bytes number;
l_fs2_bytes number;
l_fs3_bytes number;
l_fs4_bytes number;
l_fs1_blocks number;
l_fs2_blocks number;
l_fs3_blocks number;
l_fs4_blocks number;
l_full_bytes number;
l_full_blocks number;
l_unformatted_bytes number;
l_unformatted_blocks 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.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);

p('free space 0-25% Blocks:',l_fs1_blocks);
p('free space 25-50% Blocks:',l_fs2_blocks);
p('free space 50-75% Blocks:',l_fs3_blocks);
p('free space 75-100% Blocks:',l_fs4_blocks);
p('Full Blocks:',l_full_blocks);
p('Unformatted blocks:',l_unformatted_blocks);
end;

-----------------------------------------------------------

使用：

set serveroutput on

exec exec show_space_assm('TABLE','USERNAME');