Adding a concurrent program to Request Group

/*=========================== ===========

FILE NAME:

VERSION:1.0

OBJECT NAME: None

OBJECT TYPE: Anonymous block

SCOPE: PRIVATE

DESCRIPTION: This script is used to add '' program to the request group

PARAMETERS: None

RETURNS: None

HISTORY:

==========================================*/

DECLARE

l_message VARCHAR2 (4000);

l_ret_code NUMBER := 0;

BEGIN

XXXX_suros_conc_util_pkg.add_program_to_group

(p_application => ,

p_short_name => ,

p_request_group => ,

p_group_application => ,

x_ret_code => l_ret_code,

x_ret_message => l_message

);

DBMS_OUTPUT.put_line (': ' || l_ret_code);

DBMS_OUTPUT.put_line (': ' || l_message);

COMMIT;

EXCEPTION

WHEN OTHERS

THEN

DBMS_OUTPUT.put_line ('In When Others Exception: ' || SQLCODE);

DBMS_OUTPUT.put_line (SQLERRM);

END;

-----------------------------

Query To Get the details

-----------------------------

SELECT DISTINCT

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 "&concurrent_program_name"