ORACLE根据PID查询正在执行的SQL

select sql_text
  from v$sqlarea
 where (address, hash_value) in
       (select /*+unnest*/
         DECODE(sql_hash_value, 0, prev_sql_addr, sql_address),
         DECODE(sql_hash_value, 0, prev_hash_value, sql_hash_value)
          from v$session
         where sid =
               (select sid
                  from v$session
                 where paddr =
                       (select ADDR from v$process where SPID = '81512')))