create or replace package blkmap
authidcurrent_user
as
procedure ts_menu;
procedure ts_map(p_name varchar2);
end blkmap;
/
show errors;
create or replace package body blkmap
as
procedure page_open;
procedure info_form;
procedure filemap(p_id number);
procedure legend;
procedure page_close;
--
procedure ts_menu
is
begin
htp.p('');
htp.p('');
htp.p('
Tablespaces
');
htp.p('
');
for ts in (select tablespace_name from dba_tablespaces) loop
htp.p('