Assign the concurrent program to a request group

Anonymous block..  


DECLARE
l_message VARCHAR2 (2000);
l_ret_code NUMBER := 0;
BEGIN
xx_suros_conc_util_pkg.add_program_to_group 
(
p_application => <application name>,
p_short_name => <Program short name>,
p_request_group => <Request group name>,
p_group_application => <Request group application name>,
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 ('Exception : ' || SQLCODE);
dbms_output.put_line (SQLERRM);
END;