Query to find the current running concurrent program

Please find the query to find the current running concurrent program with the previous run time of the program. This will helpful to find the expected run time of the current running concurrent program

set lines 999
col USER_CONCURRENT_PROGRAM_NAME for a40
col CURRENTTIME for a20
col STARTTIME for a20
SELECT b.request_id,
       b.parent_request_id
       PREVIOUS_REQ_ID,
       Round (( viv.actual_completion_date - viv.actual_start_date ) *
              ( 60 * 24 ), 2)
       Previous_REQ_runtime,
       a.user_concurrent_program_name,
       b.cancel_or_hold,
       To_char (b.actual_start_date, 'MM/DD/YY HH24:MI:SS')       starttime,
       To_char (SYSDATE, 'MM/DD/YY HH24:MI:SS')                   Currenttime,
       Round (( SYSDATE - b.actual_start_date ) * ( 60 * 24 ), 2) Runtime
FROM   apps.fnd_concurrent_programs_tl a,
       apps.fnd_concurrent_requests b,
       apps.fnd_concurrent_requests viv
WHERE  a.concurrent_program_id = b.concurrent_program_id
       AND b.actual_start_date > SYSDATE - 3
       AND b.actual_completion_date IS NULL
       AND viv.request_id(+) = b.parent_request_id
       AND a.LANGUAGE = 'US';