Files
oracle/csierra/cs_spbl_sprf_spch_drop_all.sql
2026-03-12 21:23:47 +01:00

146 lines
5.0 KiB
SQL

----------------------------------------------------------------------------------------
--
-- File name: cs_spbl_sprf_spch_drop_all.sql
--
-- Purpose: Drop all SQL Plan Baselines, SQL Profiles and SQL Patches for some SQL Text string on PDB
--
-- Author: Carlos Sierra
--
-- Version: 2022/10/05
--
-- Usage: Connecting into PDB.
--
-- Confirm when requested.
--
-- Example: $ sqlplus / as sysdba
-- SQL> @cs_spbl_sprf_spch_drop_all.sql
--
-- Notes: Developed and tested on 19c.
--
---------------------------------------------------------------------------------------
--
DEF sleep_seconds = '1';
--
@@cs_internal/cs_primary.sql
@@cs_internal/cs_cdb_warn.sql
@@cs_internal/cs_set.sql
@@cs_internal/cs_def.sql
@@cs_internal/cs_file_prefix.sql
--
DEF cs_script_name = 'cs_spbl_sprf_spch_drop_all';
--
PRO 1. SQL Text piece (e.g.: ScanQuery, getValues, TableName, IndexName):
DEF cs2_sql_text_piece = '&1.';
UNDEF 1;
--
SELECT '&&cs_file_prefix._&&cs_script_name.' cs_file_name FROM DUAL;
--
COL count_distinct_ch NEW_V count_distinct_ch NOPRI;
COL estimated_seconds_ch NEW_V estimated_seconds_ch NOPRI;
SELECT TO_CHAR(COUNT(DISTINCT name) * TO_NUMBER('&&sleep_seconds.')) AS estimated_seconds_ch, TO_CHAR(COUNT(DISTINCT name)) AS count_distinct_ch FROM dba_sql_patches WHERE ('&&cs2_sql_text_piece.' IS NULL OR UPPER(sql_text) LIKE '%'||UPPER(TRIM('&&cs2_sql_text_piece.'))||'%')
/
--
COL count_distinct_rf NEW_V count_distinct_rf NOPRI;
COL estimated_seconds_rf NEW_V estimated_seconds_rf NOPRI;
SELECT TO_CHAR(COUNT(DISTINCT name) * TO_NUMBER('&&sleep_seconds.')) AS estimated_seconds_rf, TO_CHAR(COUNT(DISTINCT name)) AS count_distinct_rf FROM dba_sql_profiles WHERE ('&&cs2_sql_text_piece.' IS NULL OR UPPER(sql_text) LIKE '%'||UPPER(TRIM('&&cs2_sql_text_piece.'))||'%')
/
--
COL count_distinct_bl NEW_V count_distinct_bl NOPRI;
COL estimated_seconds_bl NEW_V estimated_seconds_bl NOPRI;
SELECT TO_CHAR(COUNT(DISTINCT sql_handle) * TO_NUMBER('&&sleep_seconds.')) AS estimated_seconds_bl, TO_CHAR(COUNT(DISTINCT sql_handle)) AS count_distinct_bl FROM dba_sql_plan_baselines WHERE ('&&cs2_sql_text_piece.' IS NULL OR UPPER(sql_text) LIKE '%'||UPPER(TRIM('&&cs2_sql_text_piece.'))||'%')
/
--
PRO
PRO ***
PRO *** You are about to drop on this &&cs_con_name. PDB on SQL text "&&cs2_sql_text_piece.":
PRO *** &&count_distinct_bl. SQL Plan Baselines
PRO *** &&count_distinct_rf. SQL Profiles
PRO *** &&count_distinct_ch. SQL Patches
PRO
PRO 2. Enter "Yes" (case sensitive) to continue, else <ctrl>-C
DEF cs_confirm = '&2.';
UNDEF 2;
--
SELECT '&&cs_file_prefix._&&cs_script_name.' cs_file_name FROM DUAL;
--
@@cs_internal/cs_spool_head.sql
PRO SQL> @&&cs_script_name..sql "&&cs2_sql_text_piece." "&&cs_confirm."
@@cs_internal/cs_spool_id.sql
--
PRO SQL_TEXT : &&cs2_sql_text_piece.
--
PRO
PRO Drop all &&count_distinct_ch. SQL Patches which include SQL text "&&cs2_sql_text_piece."
PRO
PRO Estimated Seconds: &&estimated_seconds_ch.
PRO
SET SERVEROUT ON;
DECLARE
l_total INTEGER := 0;
BEGIN
IF '&&cs_confirm.' = 'Yes' THEN
FOR i IN (SELECT DISTINCT name FROM dba_sql_patches WHERE ('&&cs2_sql_text_piece.' IS NULL OR UPPER(sql_text) LIKE '%'||UPPER(TRIM('&&cs2_sql_text_piece.'))||'%') ORDER BY name)
LOOP
DBMS_SQLDIAG.drop_sql_patch(name => i.name);
l_total := l_total + 1;
DBMS_LOCK.sleep(TO_NUMBER('&&sleep_seconds.'));
END LOOP;
END IF;
DBMS_OUTPUT.put_line(' *** SQL Patches Dropped:'||l_total);
END;
/
SET SERVEROUT OFF;
--
PRO
PRO Drop all &&count_distinct_rf. SQL Profiles which include SQL text "&&cs2_sql_text_piece."
PRO
PRO Estimated Seconds: &&estimated_seconds_rf.
PRO
SET SERVEROUT ON;
DECLARE
l_total INTEGER := 0;
BEGIN
IF '&&cs_confirm.' = 'Yes' THEN
FOR i IN (SELECT DISTINCT name FROM dba_sql_profiles WHERE ('&&cs2_sql_text_piece.' IS NULL OR UPPER(sql_text) LIKE '%'||UPPER(TRIM('&&cs2_sql_text_piece.'))||'%') ORDER BY name)
LOOP
DBMS_SQLTUNE.drop_sql_profile(name => i.name);
l_total := l_total + 1;
DBMS_LOCK.sleep(TO_NUMBER('&&sleep_seconds.'));
END LOOP;
END IF;
DBMS_OUTPUT.put_line(' *** SQL Profiles Dropped:'||l_total);
END;
/
SET SERVEROUT OFF;
--
PRO
PRO Drop all &&count_distinct_bl. SQL Plan Baselines which include SQL text "&&cs2_sql_text_piece."
PRO
PRO Estimated Seconds: &&estimated_seconds_bl.
PRO
SET SERVEROUT ON;
DECLARE
l_plans INTEGER := 0;
l_total INTEGER := 0;
BEGIN
IF '&&cs_confirm.' = 'Yes' THEN
FOR i IN (SELECT DISTINCT sql_handle FROM dba_sql_plan_baselines WHERE ('&&cs2_sql_text_piece.' IS NULL OR UPPER(sql_text) LIKE '%'||UPPER(TRIM('&&cs2_sql_text_piece.'))||'%') ORDER BY sql_handle)
LOOP
l_plans := DBMS_SPM.drop_sql_plan_baseline(sql_handle => i.sql_handle);
l_total := l_total + l_plans;
DBMS_LOCK.sleep(TO_NUMBER('&&sleep_seconds.'));
END LOOP;
END IF;
DBMS_OUTPUT.put_line(' *** SQL Plan Baselines Dropped:'||l_total);
END;
/
SET SERVEROUT OFF;
--
PRO
PRO SQL> @&&cs_script_name..sql "&&cs2_sql_text_piece." "&&cs_confirm."
--
@@cs_internal/cs_spool_tail.sql
@@cs_internal/cs_undef.sql
@@cs_internal/cs_reset.sql
--