Wednesday, March 18, 2015

Submit a Concurrent Request from PL/SQL script

We can submit a concurrent request from backend using fnd_request.submit_request API. Before submitting the API we need to set the environment context using fnd_global.apps_initialize
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
/****************************************************************
*PURPOSE: To Submit a Concurrent Request using PL/SQL script    *
*Using fnd_request.submit_request                                                   *
****************************************************************/

DECLARE
l_responsibility_id  NUMBER;
l_application_id     NUMBER;
l_user_id            NUMBER;
l_request_id            NUMBER;
BEGIN
  --Find correct responsibility_id and application_id
  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('XXTest Resp');
  --
   SELECT user_id INTO l_user_id FROM fnd_user WHERE user_name = 'SYSADMIN';
  --
  --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   => 'XXCUST', 
                            program       => 'XXCONCURRENT', 
                            description   => 'XXTest Conccurent Request', 
                            start_time    => sysdate, 
                            sub_request   => FALSE,
       argument1     => '12/31/2012 00:00:00'
  );
  --
  COMMIT;
  --
  IF l_request_id = 0
  THEN
     dbms_output.put_line ('Concurrent request failed to submit');
    --using fnd log if the pl/sql script is run within concurrent manager
    fnd_file.put_line (fnd_file.log, '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;
/

No comments:

Post a Comment