How to ADD CONCURRENT PROGRAM TO THE REQUEST GROUP FROM BACKEND. How to add a oracle CONCURRENT Progran or report to the Request Group in EBS R12

/*=============================================================
ADD CONCURRENT PROGRAM TO THE REQUEST GROUP FROM BACKEND
============================================================*/
-- How to add a oracle CONCURRENT Progran or report to the Request Group in EBS R12

SELECT * FROM FND_APPLICATION_VL
WHERE 1=1
AND APPLICATION_NAME = 'XXCUST Custom Application'

SELECT * FROM FND_RESPONSIBILITY_VL
WHERE 1=1
AND RESPONSIBILITY_NAME = 'Receivables, Vision Operations (USA)'

SELECT * FROM fnd_request_groups
WHERE 1=1
AND request_group_name like 'Receivables All'

------------------- Start-----------------------------
DECLARE
   v_short_name   VARCHAR2 (50) := 'XXAA_AR_AGING'; --> Conc Program Short Name
BEGIN
   fnd_global.apps_initialize (user_id           => 1318,
                               resp_id           => 21623,
                               resp_appl_id      => 660
                              );
   fnd_program.add_to_group (program_short_name       => v_short_name,
                             program_application      => 'XXCUST Custom Application',
                             request_group            => 'Receivables All',
                             group_application        => 'Receivables'
                            );
   COMMIT;
   DBMS_OUTPUT.put_line (   'succeefully attached concurrent program  to request group' || v_short_name );
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line ('error out here' || SQLCODE || SQLERRM);
END;


---->>==============================================================<<----
-- How to fetch the Report Name user_concurrent_program_name added to Which Request Group --


SELECT fcpt.user_concurrent_program_name,
       frg.request_group_name,
       fcp.concurrent_program_name,
       frt.responsibility_name,
       fat.application_name,
       fa.application_short_name,
       fa.basepath
  FROM fnd_request_group_units frgu,
       fnd_concurrent_programs fcp,
       fnd_concurrent_programs_tl fcpt,
       fnd_request_groups frg,
       fnd_executables fe,
       fnd_responsibility fr,
       fnd_responsibility_tl frt,
       fnd_application_tl fat,
       fnd_application fa
 WHERE 1 = 1
   AND fat.application_id = frgu.application_id
   AND frgu.request_unit_id = fcp.concurrent_program_id
   AND frgu.request_group_id = frg.request_group_id
   AND fe.executable_id = fcp.executable_id
   AND fcp.concurrent_program_id = fcpt.concurrent_program_id
   AND frg.request_group_id = fr.request_group_id
   AND fr.responsibility_id = frt.responsibility_id
   AND fa.application_id = fat.application_id
   AND fcpt.user_concurrent_program_name LIKE 'XXMonthly Dispatched Achievement Against ROFO Report'
ORDER BY 6,4,3,2
;
---->>==============================================================<<----