监听/监测oracle数据库执行的SQL语句

Select a.Sid,
       a.SERIAL#,       
       a.status,
       a.USERNAME, --哪个用户运行的SQL
       d.SPID 进程号, 
       b.sql_text SQL内容,
       a.MACHINE 计算机名称, 
       a.MODULE 运行方式, 
       to_char(cast((c.sofar / totalwork * 100) as decimal(18, 1))) || '%' 执行百分比, 
       c.elapsed_seconds 已耗时_秒,
       c.time_remaining 预计剩余_秒,
       cast(c.elapsed_seconds / 60 as decimal(18, 2)) 已耗时_分,
       cast(c.time_remaining / 60 as decimal(18, 2)) 预计剩余_分,
       cast(c.elapsed_seconds / 3600 as decimal(18, 2)) 已耗时_时,
       cast(c.time_remaining / 3600 as decimal(18, 2)) 预计剩余_时
  from v$session a, v$sqlarea b, v$session_longops c, v$process d
 where a.sql_hash_value = b.HASH_VALUE
   and a.sid = c.sid(+)
   and a.SERIAL# = c.SERIAL#(+)
   --and to_char(cast((c.sofar / totalwork * 100) as decimal(18, 1))) <> '100'
   and a.PADDR = d.ADDR;