Scribd
Upload
17 views

Create SPB With AWR Plan

Creation of SPB (SQL Plan base line with AWR Plan)

Uploaded by

sreeeswar
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
17 views

Create SPB With AWR Plan

Creation of SPB (SQL Plan base line with AWR Plan)

Uploaded by

sreeeswar
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

--------------------------------------------------------------------------------------

--
-- Create SPB with AWR Plan (Eswar)
--------------------------------------------------------------------------------------
---
set serveroutput on
set sqlblanklines on
set feedback off
col sql_text for a50 trunc
col last_executed for a28
col enabled for a7
col plan_hash_value for a16
col last_executed for a16
col sql_handle for a24
accept sql_id -
prompt 'Enter value for SQL_ID: ' -
default '3ggjbbd2varq2'
accept plan_hash_value -
prompt 'Enter value for PLAN_HASH_VALUE: ' -
default '568322376'
accept fixed -
prompt 'Enter value for fixed (NO): ' -
default 'NO'
accept enabled -
prompt 'Enter value for enabled (YES): ' -
default 'YES'
accept plan_name -
prompt 'Enter value for plan_name (ID_sqlid_planhashvalue): ' -
default 'X0X0X0X0'

exec DBMS_SQLTUNE.CREATE_SQLSET('CREATE_BASELINE_AWR');

declare
baseline_ref_cursor DBMS_SQLTUNE.SQLSET_CURSOR;
min_snap number;
max_snap number;
ret binary_integer;
l_sql_handle varchar2(40);
l_plan_name varchar2(40);
l_old_plan_name varchar2(40);
major_release varchar2(3);
minor_release varchar2(3);
BEGIN
select regexp_replace(version,'\..*'), regexp_substr(version,'[0-9]+',1,2) into
major_release, minor_release from v$instance;

select min(snap_id), max(snap_id) into min_snap, max_snap from dba_hist_snapshot;

open baseline_ref_cursor for
select VALUE(p) from table(DBMS_SQLTUNE.SELECT_WORKLOAD_REPOSITORY(min_snap, max_snap,
'sql_id='||CHR(39)||'&&sql_id'||CHR(39)||' and
plan_hash_value=&plan_hash_value',NULL,NULL,NULL,NULL,NULL,NULL,'ALL')) p;

DBMS_SQLTUNE.LOAD_SQLSET('CREATE_BASELINE_AWR', baseline_ref_cursor);

ret := DBMS_SPM.LOAD_PLANS_FROM_SQLSET (
sqlset_name => 'CREATE_BASELINE_AWR',
sqlset_owner => 'SYS',
fixed => 'NO',
enabled => 'YES');

if minor_release = '1' then

-- 11gR1 has a bug that prevents renaming Baselines

select plan_name
into l_plan_name
from dba_sql_plan_baselines spb
where created > sysdate-(1/24/60/15);

else

-- This statements looks for Baselines create in the last 4 seconds

select sql_handle, plan_name,

decode('&&plan_name','X0X0X0X0','SQLID_'||'&&sql_id'||'_'||'&&plan_hash_value','&&plan
_name')
into l_sql_handle, l_old_plan_name, l_plan_name
from dba_sql_plan_baselines spb
where created > sysdate-(1/24/60/15);


ret := dbms_spm.alter_sql_plan_baseline(
sql_handle=>l_sql_handle,
plan_name=>l_old_plan_name,
attribute_name=>'PLAN_NAME',
attribute_value=>l_plan_name);

end if;

dbms_output.put_line(' ');
dbms_output.put_line('Baseline '||upper(l_plan_name)||' created.');
dbms_output.put_line(' ');

end;
/

clear breaks
exec DBMS_SQLTUNE.DROP_SQLSET( sqlset_name => 'CREATE_BASELINE_AWR' );
undef sql_id
undef plan_hash_value
undef fixed
undef enabled
undef plan_name

You might also like