spool install

@common_setup.sql

WHENEVER SQLERROR exit SQL.SQLCODE

if USER not in ('SYS','SYSTEM')

then

raise_application_error (-20000,

'Not logged in as SYS or SYSTEM');

end if;

end;

WHENEVER SQLERROR continue

create user &schema_owner. identified by &schema_owner.

default tablespace users

temporary tablespace temp;

grant connect, resource to &schema_owner.;

for buff in (select p.value PLSQL_CCFLAGS

from dual d

left join v$parameter p

on p.name in 'plsql_ccflags')

loop

dbms_output.put_line('PLSQL_CCFLAGS Before: ' || buff.PLSQL_CCFLAGS);

end loop;

end;

declare

C_FLAG CONSTANT varchar2(100) := 'WTPLSQL_ENABLE:';

parm_value v$parameter.value%TYPE;

procedure set_plsql_ccflags (in_value in varchar2) is begin

execute immediate 'alter system set PLSQL_CCFLAGS = ''' ||

in_value || ''' scope=BOTH';

end set_plsql_ccflags;

select value into parm_value

from v$parameter

where name in 'plsql_ccflags';

if nvl(length(parm_value),0) = 0

then

-- No Flags have been set

set_plsql_ccflags(C_FLAG || 'TRUE');

elsif instr(parm_value, C_FLAG) = 0

then

-- C_FLAG is not already present

set_plsql_ccflags(C_FLAG || 'TRUE, ' || parm_value);

end if;

end;

for buff in (select p.value PLSQL_CCFLAGS

from dual d

left join v$parameter p

on p.name in 'plsql_ccflags')

loop

dbms_output.put_line('PLSQL_CCFLAGS After: ' || buff.PLSQL_CCFLAGS);

end loop;

end;

create or replace public synonym wt_test_runs_seq for &schema_owner..wt_test_runs_seq;

create or replace public synonym wt_test_runs for &schema_owner..wt_test_runs;

create or replace public synonym wt_results for &schema_owner..wt_results;

create or replace public synonym wt_dbout_profiles for &schema_owner..wt_dbout_profiles;

create or replace public synonym wt_not_executable for &schema_owner..wt_not_executable;

create or replace public synonym plsql_profiler_runs for &schema_owner..plsql_profiler_runs;

create or replace public synonym plsql_profiler_units for &schema_owner..plsql_profiler_units;

create or replace public synonym plsql_profiler_data for &schema_owner..plsql_profiler_data;

create or replace public synonym wt_assert for &schema_owner..wt_assert;

create or replace public synonym wt_profiler for &schema_owner..wt_profiler;

create or replace public synonym wt_result for &schema_owner..wt_result;

create or replace public synonym wt_text_report for &schema_owner..wt_text_report;

create or replace public synonym wt_wtplsql for &schema_owner..wtplsql;

create or replace public synonym wtplsql for &schema_owner..wtplsql;

WHENEVER SQLERROR exit SQL.SQLCODE

connect &schema_owner./&schema_owner.

if USER != upper('&schema_owner')

then

raise_application_error (-20000,

'Not logged in as &schema_owner');

end if;

end;

WHENEVER SQLERROR continue

@proftab.sql

create index plsql_profiler_runs_idx1

on plsql_profiler_runs (run_date);

grant select, insert, delete on plsql_profiler_runs to public;

grant select, insert, delete on plsql_profiler_units to public;

grant select, insert, delete on plsql_profiler_data to public;

@wt_test_runs.tab

@wt_results.tab

@wt_dbout_profiles.tab

@wt_test_data.tab

@wtplsql.pks

grant execute on wtplsql to public;

@wt_result.pks

grant execute on wt_result to public;

@wt_assert.pks

grant execute on wt_assert to public;

@wt_profiler.pks

grant execute on wt_profiler to public;

@wt_text_report.pks

grant execute on wt_text_report to public;

@wtplsql.pkb

@wt_result.pkb

@wt_assert.pkb

@wt_profiler.pkb

@wt_text_report.pkb

spool off