-- ************************************************************
-- *** Feel free to use this SQL-code, but please           ***
-- *** do not remove these copyright lines.                 ***
-- *** (C) Roger Felix - Lund - Sweden                      ***
-- *** [roger_felix@hotmail.com, web_master@work.utfors.se] ***
-- *** URL: http://hem.fyristorg.com/publish/index.html     ***
-- ************************************************************
set pagesize 900;
set trimspool on;
set arraysize 1;

select a.username||' ['||executions||'] <'
       ||round(disk_reads / decode(executions, 0, 1, executions) / 50,2) ||'> '
       ||sql_text ||' '
  from dba_users a, v$session, v$sqlarea
where parsing_user_id=user_id and address=sql_address(+) and
     disk_reads / decode(executions,0,1, executions) / 50 > 10
order  by executions desc;

select ' ['||executions||'] '||
     ' <'||round(disk_reads / decode(executions, 0, 1, executions) / 400,2) ||'> '||
     ' '||sql_text ||' '  from v$sqlarea
where  buffer_gets / decode(executions,0,1, executions) / 400 > 10
order  by executions desc;