Need to run 2 concurrent programs after completing child concurrent program

Question

Hi,
Could you suggest me on below:
R12/ 11g
I have main concurrent program MAIN_CONC_PG.
In this concurrent program there is a child concurrent program CHLD_CONC_PG.
This child concurrent program will run for parameters 1,2,3,4,5.
CHLD_CONC_PG program will run simultaneously 5 times:
CHLD_CONC_PG ==> 1
CHLD_CONC_PG ==> 2
CHLD_CONC_PG ==> 3
CHLD_CONC_PG ==> 4
CHLD_CONC_PG ==> 5
Now, after completion of above 5 Child Concurrent programs i have to start 2 more concurrent programs using fnd_request.submit_request:
1) Item Attributes
2) Vendor populate
Thanks.

Answer 1

931832 wrote:
yes, both the Conc Programs are part of Main Conc Prog.
1) Item Attributes
2) Vendor populate
I should be using FND_CONCURRENT.WAIT_FOR_REQUEST.
any sample code that uses FND_CONCURRENT.WAIT_FOR_REQUEST ??
IN my Main Conc Prog, i have below child conc prog. after completing below program i have to run 1) Item Attributes 2) Vendor populate conc progms.
FOR i IN 1..v_count
LOOP
v_request_id := fnd_request.submit_request(application => 'XXDH',
program => 'XXPTN_ITEM_ORDR_E',
description => NULL,
start_time => NULL,
sub_request => FALSE,
argument1 => i);
END LOOP;Hi,
You can also try something like this.
declare
  l_reqid_tab is table of number index by pls_integer;
  l_reqid_tbl l_reqid_tab;
  function program_successful ( p_conc_req_id number ) return boolean
  is
    l_finished    boolean;
    l_phase       varchar2 (100);
    l_status      varchar2 (100);
    l_dev_phase   varchar2 (100);
    l_dev_status  varchar2 (100);
    l_message     varchar2 (100);
  begin
    if p_conc_req_id > 0 then
      l_finished := fnd_concurrent.wait_for_request ( request_id => p_conc_req_id
                                                     ,interval   => 5
                                                     ,max_wait   => 0
                                                     ,phase      => l_phase
                                                     ,status     => l_status
                                                     ,dev_phase  => l_dev_phase
                                                     ,dev_status => l_dev_status
                                                     ,message    => l_message );
      commit;
      if upper(l_dev_status) in ('WARNING', 'ERROR') and upper(l_dev_phase) in ('COMPLETE') then
        return false;
      elsif upper(l_dev_status) in ('NORMAL') and upper(l_dev_phase) in ('COMPLETE') then
        return true;
      else
        return false;
      end if;
    else
      return false;
    end if;
  end program_successful;
begin
  for i in 1..v_count loop
    l_reqid_tbl(i) := fnd_request.submit_request....
  end loop;
  for i in 1..l_reqid_tbl.count loop
    if program_successful(l_reqid_tbl(i)i) then
      null;
    end if;
  end loop;
  -- code to submit your other program here.Hope this helps.
Regards,
Allen
Edited by: Allen Sandiego on Jun 18, 2012 9:47 AM
Made some modifications since number of spawned child requests is variable.