set echo off
set feedback off
begin
  for to_be_dopped in (
  select table_name
  from all_tables
  where table_name in (
    'PLSQL_PROFILER_RUNS','PLSQL_PROFILER_UNITS','PLSQL_PROFILER_DATA',
    'DBMSPCC_BLOCKS','DBMSPCC_RUNS','DBMSPCC_UNITS'
  )
        and owner = sys_context( 'USERENV', 'CURRENT_SCHEMA' )
  )
  loop
    execute immediate 'drop table '||to_be_dopped.table_name||' cascade constraints purge';
    dbms_output.put_line('Table '||to_be_dopped.table_name||' dropped');
  end loop;
end;
/

declare
  l_seq_exist number;
begin
  select count(*) into l_seq_exist
  from all_sequences
  where sequence_name = 'PLSQL_PROFILER_RUNNUMBER'
        and sequence_owner = sys_context('USERENV','CURRENT_SCHEMA');
  if l_seq_exist = 1 then
    execute immediate 'drop sequence plsql_profiler_runnumber';
    dbms_output.put_line('Sequence PLSQL_PROFILER_RUNNUMBER dropped');
  end if;
end;
/

