2026-03-12 20:23:15

vg/create_sql_profile_awr.sql

@@ -0,0 +1,115 @@
+----------------------------------------------------------------------------------------
+--
+-- File name:   create_sql_profile_awr.sql
+--
+-- Purpose:     Create SQL Profile based on Outline hints in V$SQL.OTHER_XML.
+--
+-- Author:      Kerry Osborne
+--
+-- Usage:       This scripts prompts for five values.
+--
+--              sql_id: the sql_id of the statement to attach the profile to 
+--              (must be in the shared pool and in AWR history)
+--
+--              plan_hash_value: the plan_hash_value of the statement in AWR history
+--
+--              profile_name: the name of the profile to be generated
+--
+--              category: the name of the category for the profile
+--
+--              force_macthing: a toggle to turn on or off the force_matching feature
+--
+-- Description: 
+--
+--              Based on a script by Randolf Giest.
+--
+-- Mods:        This is the 2nd version of this script which removes dependency on rg_sqlprof2.sql.
+--
+--              See kerryosborne.oracle-guy.com for additional information.
+---------------------------------------------------------------------------------------
+--
+
+-- @rg_sqlprof1 '&&sql_id' &&child_no '&&category' '&force_matching'
+
+set feedback off
+set sqlblanklines on
+
+accept sql_id -
+       prompt 'Enter value for sql_id: ' -
+       default 'X0X0X0X0'
+accept plan_hash_value -
+       prompt 'Enter value for plan_hash_value: ' 
+accept profile_name -
+       prompt 'Enter value for profile_name (PROF_sqlid_planhash): ' -
+       default 'X0X0X0X0'
+accept category -
+       prompt 'Enter value for category (DEFAULT): ' -
+       default 'DEFAULT'
+accept force_matching -
+       prompt 'Enter value for force_matching (FALSE): ' -
+       default 'false'
+
+declare
+ar_profile_hints sys.sqlprof_attr;
+cl_sql_text clob;
+l_profile_name varchar2(30);
+begin
+select
+extractvalue(value(d), '/hint') as outline_hints
+bulk collect
+into
+ar_profile_hints
+from
+xmltable('/*/outline_data/hint'
+passing (
+select
+xmltype(other_xml) as xmlval
+from
+dba_hist_sql_plan
+where
+sql_id = '&&sql_id'
+and plan_hash_value = &&plan_hash_value
+and other_xml is not null
+)
+) d;
+
+select
+sql_text,
+decode('&&profile_name','X0X0X0X0','PROF_&&sql_id'||'_'||'&&plan_hash_value','&&profile_name')
+into
+cl_sql_text, l_profile_name
+from
+dba_hist_sqltext
+where
+sql_id = '&&sql_id';
+
+dbms_sqltune.import_sql_profile(
+sql_text => cl_sql_text,
+profile => ar_profile_hints,
+category => '&&category',
+name => l_profile_name,
+force_match => &&force_matching
+-- replace => true
+);
+
+  dbms_output.put_line(' ');
+  dbms_output.put_line('SQL Profile '||l_profile_name||' created.');
+  dbms_output.put_line(' ');
+
+exception
+when NO_DATA_FOUND then
+  dbms_output.put_line(' ');
+  dbms_output.put_line('ERROR: sql_id: '||'&&sql_id'||' Plan: '||'&&plan_hash_value'||' not found in AWR.');
+  dbms_output.put_line(' ');
+
+end;
+/
+
+undef sql_id
+undef plan_hash_value
+undef profile_name
+undef category
+undef force_matching
+
+set sqlblanklines off
+set feedback on