oracle自定义过程来获得完整的sql语句

因为oracle将sql共享之后，截取出来的sql语句是带变量的

创建一个函数 jy_getsql来获得执行时的完整sql语句

CREATE OR REPLACE FUNCTION jy_getsql (my_sql_id in varchar2)

RETURN clob

IS

Result   clob;

cursor jl(p_sql_id in varchar2) is

  select decode(instr(b.BIND_NAME,'SYS'),0,':'||b.BIND_NAME||'',''||chr(58)||chr(34)||b.BIND_NAME||chr(34)||'')  name,

  decode(b.DATATYPE,2,dbms_sqltune.extract_bind(a.bind_data,b.POSITION).value_string ,''''||dbms_sqltune.extract_bind(a.bind_data,b.POSITION).value_string ||'''')

          value_string

  from v$sqlarea a ,v$sql_bind_metadata b

  where a.LAST_ACTIVE_CHILD_ADDRESS = b.ADDRESS

    and a.SQL_ID = p_sql_id

  order by b.POSITION desc;

BEGIN

    select a.SQL_FULLTEXT into Result

    from v$sqlarea a where a.SQL_ID=my_sql_id;

    for r in jl(my_sql_id) loop

       Result := replace(Result,r.name,r.value_string);

    end loop;

RETURN Result;

EXCEPTION

WHEN OTHERS

THEN

RETURN Result;

END;

下面的查询是查询数据库当前正处于等待状态的sql语句

select sw.sid,s.username,sw.event,sw.wait_time,sw.state,sw.seconds_in_wait,p.PROGRAM,s.MACHINE,

(select  c.SQL_FULLTEXT from v$sqlarea c where c.SQL_ID=s.SQL_ID) sql_fulltext,

(select  c.BIND_DATA from v$sqlarea c where c.SQL_ID=s.SQL_ID) BIND_DATA,s.SQL_ID,

jy_getsql(s.SQL_ID)

from v$session s,v$session_wait sw,v$process p

where s.username is not null and s.PADDR=p.ADDR

and sw.sid=s.sid and sw.event not like'%SQL*Net%'

order by sw.wait_time desc

但是这还有一缺点就是

select 1 userid from dual

这个1没有在v$sqlarea.bind_data中

但where子句中的绑定变量还是有了

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26015009/viewspace-751947/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26015009/viewspace-751947/