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;