Code: [Copy to clipboard]　　set echo off　　Rem Drop and recreate PLAN_TABLE for EXPLAIN PLAN　　drop table plan_table;　　create table PLAN_TABLE (　　statement_id　　　　 varchar2(30),　　timestamp　　　　　　date,　　remarks　　　　　　　varchar2(80),　　operation　　　　　　varchar2(30),　　options　　　　　　　 varchar2(255),　　object_node　　　　　varchar2(128),　　object_owner　　　　 varchar2(30),　　object_name　　　　　varchar2(30),　　object_instance　　　　numeric,　　object_type　　　　 varchar2(30),　　optimizer　　　　　 varchar2(255),　　search_columns　　　　 number,　　id　　　　　　　　　　　　numeric,　　parent_id　　　　　　　　numeric,　　position　　　　　　　　numeric,　　cost　　　　　　　　numeric,　　cardinality　　　　　　　　numeric,　　bytes　　　　　　　　numeric,　　other_tag　　　　　　varchar2(255),　　partition_start　　 varchar2(255),　　partition_stop　　　varchar2(255),　　partition_id　　　　numeric,　　other　　　　　　　　long,　　distribution　　　　varchar2(30),　　cpu_cost　　　　　　　　numeric,　　io_cost　　　　　　　　numeric,　　temp_space　　　　　　　　numeric,　　access_predicates　 varchar2(4000),　　filter_predicates　 varchar2(4000));　　　　Rem Drop and recreate SQLTEMP for     taking a snapshot of the SQLAREA　　drop table sqltemp;　　create table sqltemp　 (　　ADDR　　　　　　　　 VARCHAR2 (16),　　SQL_TEXT　　　　　　　　 VARCHAR2 (2000),　　DISK_READS　　　　　　　　NUMBER,　　EXECUTIONS　　　　　　　　NUMBER,　　PARSE_CALLS　　　　 NUMBER);　　　　set echo on　　Rem Create procedure to populate     the plan_table by executing　　Rem explain plan...for 'sqltext' dynamically　　create or replace procedure do_explain (　　addr IN varchar2, sqltext IN varchar2)　　as dummy varchar2 (1100);　　mycursor integer;　　ret integer;　　my_sqlerrm varchar2 (85);　　begin dummy:='EXPLAIN PLAN     SET STATEMENT_ID=' ;　　dummy:=dummy||''''||addr||''''    ||' FOR '||sqltext;　　mycursor := dbms_sql.open_cursor;　　dbms_sql.parse(mycursor,dummy,dbms_sql.v7);　　ret := dbms_sql.execute(mycursor);　　dbms_sql.close_cursor(mycursor);　　commit;　　exception -- Insert errors into     PLAN_TABLE...　　when others then my_sqlerrm :=    substr(sqlerrm,1,80);　　insert into plan_table(statement_id,    remarks) values (addr,my_sqlerrm);　　-- close cursor if exception     raised on EXPLAIN PLAN　　dbms_sql.close_cursor(mycursor);　　end;　　/　　　　Rem Start EXPLAINing all S/I/U/D     statements in the shared pool　　declare　　-- exclude statements with     v$sqlarea.parsing_schema_id = 0 (SYS)　　cursor c1 is select address, sql_text,     DISK_READS, EXECUTIONS, PARSE_CALLS　　from v$sqlarea　　where command_type in (2,3,6,7)　　and parsing_schema_id != 0;　　cursor c2 is select addr,     sql_text from sqltemp;　　addr2　　　　　varchar(16);　　sqltext　　　　v$sqlarea.sql_text%type;　　dreads　　　　 v$sqlarea.disk_reads%type;　　execs　　　　　v$sqlarea.executions%type;　　pcalls　　　　 v$sqlarea.parse_calls%type;　　begin open c1;　　fetch c1 into addr2,sqltext,    dreads,execs,pcalls;　　while (c1%found) loop　　insert into sqltemp values    (addr2,sqltext,dreads,execs,pcalls);　　commit;　　fetch c1 into addr2,    sqltext,dreads,execs,pcalls;　　end　　loop;　　close　c1;　　open　c2;　　fetch c2 into addr2, sqltext;　　while (c2%found) loop　　do_explain(addr2,sqltext);　　fetch c2 into addr2, sqltext;　　end　 loop;　　close c2;　　end;　　/　　　　Rem Generate a report of index     usage based on the number of times　　Rem a SQL statement using     that index was executed　　select p.owner, p.name,     sum(s.executions) totexec　　from sqltemp s,　　(select distinct statement_id stid,     object_owner owner, object_name name　　from plan_table where operation = 'INDEX') p　　where s.addr = p.stid　　group by p.owner, p.name　　order by 2 desc;　　　　Rem Perform cleanup on exit (optional)　　delete　from plan_table　　where　statement_id in　　( select　addr　from sqltemp );　　drop table sqltemp;