 declare
msg text;
begin
truncate table edb$system_waits;
truncate table edb$session_waits;
truncate table edb$session_wait_history;
truncate table edb$snap;
-- added 01/07/2008 - P. Steinheuser
truncate table edb$stat_database;
truncate table edb$stat_all_tables;
truncate table edb$statio_all_tables;
truncate table edb$stat_all_indexes;
truncate table edb$statio_all_indexes;
msg := 'Snapshots truncated.';
return msg;
exception
when others then
msg := 'Function failed.';
return msg;
end;
   