Two inserts using FORALL in oracle version 10.1.0.5.0 - 64bi.

Question

Hi all,
I am trying to insert values into one table based on the another table insert statement returning values.
but i am unable to achieve this requirement using below code.
DB Version :
BANNER                                                        
Oracle Database 10g Enterprise Edition Release 10.1.0.5.0 - 64bi
PL/SQL Release 10.1.0.5.0 - Production                          
CORE     10.1.0.5.0     Production                                        
TNS for HPUX: Version 10.1.0.5.0 - Production                   
NLSRTL Version 10.1.0.5.0 - Production
sample code:
CREATE TABLE EMP1 (EMPNO NUMBER(4));  
   CREATE TABLE EMP2 (EMPNO NUMBER(4));  
   DECLARE
TYPE te_emp is table of  emp.empno%type;
t_empno te_emp;
l_empno NUMBER;
begin
select emp.empno bulk collect into t_empno from emp;
forALL  i in 1..t_empno.COUNT 
    execute immediate
     'BEGIN
     insert into emp(empno) values(:1) RETURNING EMPNO into '||l_empno||';
     insert into emp(empno) values('||l_empno||');
     END;' using t_empno(i);
end;  Please help me to achieve the requirement as mentioned above.
Edited by: Rama Krishna.CH on Nov 7, 2012 6:39 PM

Answer 1

SY,
Thank you very much sir.But our DB's not interest to creating objects for this requirement. so I can achieve this requirement using below code.
  DECLARE
TYPE td_empno is table of  number(4);
t_empno td_empno;
TYPE td_sal is table of  number;
t_sal td_sal;
l_empno NUMBER;
begin
select empno,sal  bulk collect into t_empno,t_sal from emp;
forALL  i in 1..t_empno.COUNT 
execute immediate
'BEGIN
insert into emp(empno,sal) values(:1,:2) RETURNING EMPNO into :3;
insert into emp(empno,ename) values(:3,:4);
END;' using t_empno(i),t_sal(i),in out l_empno,'rama';
end; Is there any other way achieve this requirement with out declaring multiple pl/sql tables and type objects like below example.
Using record data type.
DECLARE
TYPE rd_emp IS RECORD ( empno emp.empno%type
                       ,sal emp.sal%type
                       ,comm emp.comm%type);
TYPE td_emp is table of  rd_emp;
t_emp td_emp;
l_empno NUMBER;
begin
select empno,sal,comm bulk collect into t_emp from emp;
forALL  i in 1..t_emp.COUNT 
    execute immediate
      'DECLARE
       ere rd_emp;
      BEGIN
      ere := :1;
      ere := :2;
     insert into emp(empno,sal) values(ere.empno,ere.sal) RETURNING EMPNO into :2;
     insert into emp(empno) values(:2);
     END;' using t_emp(i),t_emp(i),in out l_empno;
end;
  Sorry for not providing exact information at first time.