Session Info from PID

----------------------------------
-Session Info from PID
-File Name : pid.sql
-Usage : @pid
-----------------------------------

col user@machine  for a30
col (SID,SERIAL#)  for a20
col s.program for a20
col MODULE for a20
col action for a20
col spid for a8 

select p.spid,s.sid||','||s.serial# "(SID,SERIAL#)",last_call_et/3600,status,s.username||'@'||s.machine as "user@machine",s.program,module,action 
from v$session s,v$process p
where p.spid='&PID'and  p.addr=s.paddr
/