Apps-Submit a Concurrent Request from Backend

Submit a Concurrent Request from Backend


DECLARE
l_responsibility_id NUMBER;
l_application_id     NUMBER;
l_user_id           NUMBER;
l_request_id            NUMBER;
BEGIN
  --
  SELECT DISTINCT fr.responsibility_id,
    frx.application_id
     INTO l_responsibility_id,
    l_application_id
     FROM apps.fnd_responsibility frx,
    apps.fnd_responsibility_tl fr
    WHERE fr.responsibility_id = frx.responsibility_id
  AND LOWER (fr.responsibility_name) LIKE LOWER('Responsibility name');

   SELECT user_id INTO l_user_id FROM fnd_user WHERE user_name = 'USERNAME';

  --To set environment context.

  apps.fnd_global.apps_initialize (l_user_id,l_responsibility_id,l_application_id);

  --Submitting Concurrent Request

  l_request_id := fnd_request.submit_request (
                            application   => 'CUSTOM',
                            program       => 'Concurrent Program Name',
                            description   => 'Description',
                            start_time    => sysdate,
                            sub_request   => FALSE,
   argument1     => 'Argument1'
  );

  COMMIT;

  IF l_request_id = 0
  THEN
     dbms_output.put_line ('Concurrent request failed to submit');
  ELSE
     dbms_output.put_line('Successfully Submitted the Concurrent Request');
  END IF;

EXCEPTION
WHEN OTHERS THEN
  dbms_output.put_line('Error While Submitting Concurrent Request '||TO_CHAR(SQLCODE)||'-'||sqlerrm);
END;