Status of a particular Concurrent Request

set verify off
col sid format 9999
col spid format a9
col inst_id format 99
col serial# format 999999
col process format a10
set lines 180 pages 100
col username format a10
col program format a20
col machine format a18
col module format a25
col Action format a14
col logon_time format a21

PROMPT;
PROMPT;

ACCEPT inp_prog PROMPT 'Enter the desired Concurrent Request : ';

select s.inst_id,request_id,s.username,s.sid,s.serial#,s.process,
p.spid,
to_char(logon_time,'DD-MON-YYYY HH24:MI:SS') logon_time ,
s.status,
-- substr(s.program,1,10) "Program",
substr(s.machine,1,12) "Machine",
substr(s.module,1,12) "Module",
substr(s.action,1,14) "Action"
from gv$session s , gv$process p , apps.fnd_concurrent_requests fnd
where s.process = fnd.os_process_id
and s.paddr=p.addr
and s.inst_id=p.inst_id
and request_id like decode('&&inp_prog','',request_id,'&&inp_prog')
and phase_code='R'
order by request_id,logon_time
/