Query to find the Pending Concurrent program with concurrent manager

Sometime the program might  be in pending state for long time, this might be due to the various reasons and one of it might be due to  the concurrent manager  threshold  reached to its full allocated capacity so the new programs has to wait in the pending queue until programs in the running queues gets completed.

Please use the below query to find the programs which are pending with the concurrent manager.

col user_concurrent_program_name FOR a80
col user_concurrent_queue_name FOR a40
SELECT b.request_id, a.user_concurrent_program_name,
       b.phase_code AS completed, b.status_code AS error,
       u.user_name requestor,
       To_char (b.actual_start_date, 'MM/DD/YY HH24:MI:SS') starttime,
       Round ((b.actual_completion_date - b.actual_start_date) * (60 * 24),
              2
             ) runtime,
        Convert(b.completion_text,'US7ASCII','WE8ISO8859P1')
  FROM fnd_concurrent_programs_tl a, fnd_concurrent_requests b, fnd_user u
 WHERE a.concurrent_program_id = b.concurrent_program_id
   AND b.phase_code = 'C'
   AND b.status_code = 'E'
   AND b.requested_by = u.user_id
   AND a.LANGUAGE = 'US';