等待事件指令碼

SELECT t1.sid,
       t1.serial#,
       t1.machine,
       t1.username,
       t1.event,
       t2.sql_text,
       t1.sql_id,
       t1.seconds_in_wait,
       t1.program,
       t1.blocking_session,
      -- object_type || ': ' || object_name object,
       t1.wait_class,
       t1.state
  FROM v$session t1
  LEFT OUTER JOIN v$sqlarea t2
    on (t1.sql_id = t2.sql_id)
  --LEFT OUTER JOIN dba_objects t3
    --ON (object_id = row_wait_obj#)
 where t1.wait_class <> 'Idle';