Tech Trainings

Submit Concurrent Program (XML Report) Using PLSQL in Oracle E-Business Suite

February 1, 2025 by admin

DECLARE
   l_responsibility_id     NUMBER;
   l_resp_application_id   NUMBER;
   l_security_group_id     NUMBER;
   l_user_id               NUMBER;
   l_request_id            NUMBER;
   
   l_option_return            BOOLEAN;
BEGIN
   --
   -- Get the apps environment variables --
   --
   SELECT user_id, responsibility_id, responsibility_application_id,
          security_group_id
     INTO l_user_id, l_responsibility_id, l_resp_application_id,
          l_security_group_id
     FROM fnd_user_resp_groups
    WHERE user_id = (SELECT user_id
                       FROM fnd_user
                      WHERE user_name = 'OPERATIONS')
      AND responsibility_id =
             (SELECT responsibility_id
                FROM fnd_responsibility_vl
               WHERE responsibility_name = 'Application Developer')
               ;


   --
   --To set environment context.
   --
   apps.fnd_global.apps_initialize (l_user_id,
                                    l_responsibility_id,
                                    l_resp_application_id
                                   );
   
   
      l_option_return :=

      fnd_request.add_layout (template_appl_name      => 'FND', --Application Short Name 
                               template_code           => 'XXORA_EMP_REP_TMPL', --Template Code 
                              template_language       => 'En', 
                              template_territory      => '00',
                              output_format           => 'PDF'

                             );

   /* Setting Printer Options , if we want print output of the Concurrent Program on Particular Printer*/

   l_option_return :=

      fnd_request.set_print_options (printer             => 'noprint',
                                     style               => 'LANDSCAPE',
                                     copies              => 1,
                                     save_output         => TRUE,
                                     print_together      => 'N'
                                    );
                                    
   
   --
   --Submitting Concurrent Request
   --
   l_request_id :=
      fnd_request.submit_request (application      => 'FND',         -- Application Short Name
                                  program          => 'XXORA_EMP_REP',   -- Program Short Name
                                  description      => 'XXORA_EMP_REP', -- Any Meaningful Description
                                  start_time       => SYSDATE,          -- Start Time
                                  sub_request      => FALSE              -- Subrequest Default False
                                  );
   --
   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: '||l_request_id);
   END IF;
   --
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line (   'Error While Submitting Concurrent Request '
                            || TO_CHAR (SQLCODE)
                            || '-'
                            || SQLERRM
                           );
END;

Comments |0|