set lines 120 pages 200
column event format a30
column object_type format a14
column object_name format a30
column owner format a10
column sql_text format a120
accept event_name prompt ‘Enter fraction of event to trace : ‘
select distinct a.event, s.sql_id, s.sql_text, s.executions
from v$session a, v$sqlarea s
where s.sql_id = a.sql_id
and lower(a.event) like lower(‘%&event_name%’)
order by s.sql_id;