Monitoring Concurrent Programs

Query to find running concurrent programs
SQL>SELECT vs.username,
 vs.osuser,
 vh.sid locking_sid,
 vs.status status,
 vs.module module,
 vs.program program_holding,
 jrh.job_name,
 vsw.username,
 vsw.osuser,
 vw.sid waiter_sid,
 vsw.program program_waiting,
 jrw.job_name,
 'alter system kill session ' || ''''|| vh.sid || ',' || vs.serial# || ''';'  "Kill_Command"
FROM v$lock vh,
 v$lock vw,
 v$session vs,
 v$session vsw,
 dba_scheduler_running_jobs jrh,
 dba_scheduler_running_jobs jrw
WHERE     (vh.id1, vh.id2) IN (SELECT id1, id2
 FROM v$lock
 WHERE request = 0
 INTERSECT
 SELECT id1, id2
 FROM v$lock
 WHERE lmode = 0)
 AND vh.id1 = vw.id1
 AND vh.id2 = vw.id2
 AND vh.request = 0
 AND vw.lmode = 0
 AND vh.sid = vs.sid
 AND vw.sid = vsw.sid
 AND vh.sid = jrh.session_id(+)
 AND vw.sid = jrw.session_id(+);
[oraprod@ltkbwlndb01 Sreeni_Monitoring_Scripts]$ cat rr.sql
set pages 1000 lines 1000 pagesize 1000;
select a.request_id ,decode(a.phase_code,'R','Running','Normal') Phase,
to_char(a.actual_start_date,'DD-MON-RRRR HH24:MI:SS')
Start_time , substr(b.user_concurrent_program_name,1,40) Program , a.ORACLE_SESSION_ID
from apps.fnd_concurrent_requests a, apps.fnd_concurrent_programs_tl b
where a.concurrent_program_id = b.concurrent_program_id and
a.status_code = 'R'
order by Start_time;
REQUEST_ID PHASE   START_TIME           PROGRAM                                  ORACLE_SESSION_ID
---------- ------- -------------------- ---------------------------------------- -----------------
  89896545 Running 30-AUG-2017 03:46:01 sreenidba-sreenidba REGISTER (RECEIPT NO-WISE)
  89896594 Running 30-AUG-2017 03:50:51 sreenidba-sreenidba REGISTER (RECEIPT NO-WISE)
  89896700 Running 30-AUG-2017 03:59:29 sreenidba-sreenidba REGISTER (RECEIPT NO-WISE)
  89898623 Running 30-AUG-2017 05:26:34 sreenidba-Transfer Order Lines to AR Interfa