Current running concurrent programs

Get details of concurrent requests which are running currently and also the script will provide details of who is running the request and from which responsibility

alter session set current_schema=apps;

SELECT fcp.user_concurrent_program_name,
       fcr.request_id,
       fcr.request_date,
       fu.user_name Requested_By,
       fr.responsibility_name,
       TO_CHAR (fcr.actual_start_date, 'DD-MON-YYYY HH24:MI:SS')
          actual_start_date
  FROM fnd_concurrent_requests fcr,
       fnd_concurrent_programs_tl fcp,
       fnd_user fu,
       fnd_responsibility_tl fr
 WHERE     1 = 1
       AND fr.language = USERENV ('LANG')
              AND fcp.language = USERENV ('LANG')
       AND fcr.phase_code = 'R'
       AND fcr.concurrent_program_id = fcp.concurrent_program_id
       AND fcr.requested_by = fu.user_id
       AND FCR.RESPONSIBILITY_ID = FR.RESPONSIBILITY_ID