Bulk Delete SQL Plan Baselines

DBMS_SPM.DROP_SQL_PLAN_BASELINE will delete a single baseline, so I suppose I could create a loop on DBA_SQL_PLAN_BASELINES to run this procedure.

Here is the block of code I used:

set serveroutput on;
declare
   vResult Binary_Integer;
begin
   For vPlan In (SELECT distinct Plan_Name FROM dba_sql_plan_baselines) Loop
      --DBMS_OUTPUT.PUT_LINE('Deleting ' || vPLan.Plan_Name || ' - ' 
      --   || to_char(dbms_spm.drop_sql_plan_baseline(sql_handle=>NULL, 
      --         plan_name=>vPlan.Plan_Name))
      --   || '.');
      vResult := dbms_spm.drop_sql_plan_baseline(sql_handle=>NULL, 
         plan_name=>vPlan.Plan_Name);

   End Loop;
end;
/

The DROP_SQL_PLAN_BASELINE function will drop all plans if the plan name is not specified.