Calling Bursting Program

   
DECLARE
l_request_id number;

begin
fnd_global.APPS_INITIALIZE(78866, 60094, 809);
COMMIT;

l_request_id := FND_REQUEST.SUBMIT_REQUEST ('XDO','XDOBURSTREP',NULL,NULL,FALSE,'Y', 33149993, 'Y');

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;