批量查看当前运行sql的执行计划脚本

cat sql.sh

a=$1

sqlplus -s zabbix/zabbix@$a <<!!

declare

   text long ;

   sql_str   long ;

begin

  for  i in (

     select     c.username,

      a.sql_id,

      a.ELAPSED_SECONDS,

          b.SQL_FULLTEXT

  from v\$session_longops a, v\$sqlarea b,v\$session c

        where a.sql_id = b.sql_id

   and a.sql_hash_value = b.hash_value

   and a.target not like '%SYSTEM%'

   and a.ELAPSED_SECONDS > 10

   and a.sid = c.sid

   and a.SERIAL#= c.SERIAL#

   and c.username not in ( 'SYS')

   and rownum < 10  )

   loop

    dbms_output.put_line(to_char(i.SQL_FULLTEXT)) ;

    dbms_output.put_line('   ') ;

    execute immediate 'alter session set current_schema='||i.username;

    execute immediate 'explain plan for '||i.SQL_FULLTEXT;

    dbms_output.put_line('username='||i.username||' sql_id='||i.sql_id||' elapsed_seconds='||i.ELAPSED_SECONDS);

     for  t in ( select PLAN_TABLE_OUTPUT  from table(dbms_xplan.display ))

     loop

       dbms_output.put_line(to_char(t.PLAN_TABLE_OUTPUT)) ;

     end loop ;

    dbms_output.put_line('############################################################################################################################################');

       

   end loop ;

 EXCEPTION WHEN OTHERS THEN

  raise ;

end ;

/

有错误请指出，谢谢！