Submit and Waiting for a Request

declare

ln_request_id NUMBER;

lv_phase       VARCHAR2(100);

lv_status      VARCHAR2(100);

lv_dev_phase   VARCHAR2(100);

lv_dev_status  VARCHAR2(100);

lv_msg         VARCHAR2(100);

lv_wait_req_id BOOLEAN;

begin

fnd_global.apps_initialize(51067,51552,20003);

ln_request_id :=

fnd_request.submit_request(

                          application => 'XXEXPD'

                          ,program     => 'XXEXPD_OAFLDR_PROCESS_JAVA'

                          ,description => 'File Loader for MT940'

                          ,start_time  => SYSDATE

                          ,sub_request => NULL

                          ,argument1   => 'N'

                          ,argument2   => '26131'

                          );

commit;      

 lv_wait_req_id :=

            fnd_concurrent.wait_for_request (request_id   => ln_request_id,

                                             interval     => 10,

                                             max_wait     => 0,

                                             phase        => lv_phase,

                                             status       => lv_status,

                                             dev_phase    => lv_dev_phase,

                                             dev_status   => lv_dev_status,

                                             MESSAGE      => lv_msg);

   dbms_output.put_line('Request Id'|| ln_request_id);                  

end;