Error in pl/sql block with parameters

Question

Hi,
I have the following code which works in normal cursor forloops,
Can some one please check how to achive the same functionality using bulk insert.( i want to use parameterised cursor)
step 1 ---working
declare
CURSOR DEPT_inst
is
select d.deptno
from dept d where d.dname='RESEARCH';
CURSOR emp_inst (p_dept in number)
         IS
     SELECT e.empno ,
            e.ename  ,
            e.deptno
       from emp1 e
      where e.deptno = p_dept;
begin
for i in dept_inst loop
   delete from emp2 where deptno=i.deptno;
   for j in emp_inst(i.deptno) loop
      INSERT INTO emp2(empno,
                           ename,
                           deptno )
                   VALUES (j.empno,
                           j.ename,
                          j.deptno
end loop;
end loop;
commit;
exception
when others then
dbms_output.put_line( 'exception in err insert'||SQLERRM);
ROLLBACK;
end;
step - 2  compilation error
declare
CURSOR DEPT_inst
is
select d.deptno
from dept d where dname='RESEARCH';
CURSOR emp_inst (p_dept in number)
         IS
     SELECT e.empno ,
            e.ename  ,
            e.deptno
       from emp1 e
      where e.dept = p_dept;
TYPE id_tab_dep_1 IS TABLE OF dept_inst%ROWTYPE
            INDEX BY PLS_INTEGER;
     t_id_dep_1       id_tab_dep_1;
    TYPE id_tab_det_1 IS TABLE OF emp_inst(t_id_det_1(indxi).deptno)%ROWTYPE
            INDEX BY PLS_INTEGER;
     t_id_det_1       id_tab_det_1;
       BEGIN
         OPEN dept_inst;
           FETCH dept_inst
           LOOP
           BULK COLLECT into t_id_dep_1 LIMIT 100;
           EXIT WHEN t_id_dep_1.count <= 0;
         FOR indxi IN t_id_det_1.FIRST  .. t_id_det_1.LAST LOOP
               delete from emp2 where deptno=t_id_det_1(indxi).deptno;
         OPEN emp_inst;
         LOOP
         FETCH emp_inst(t_id_det_1(indxi).deptno)
             BULK COLLECT INTO t_id_det_1  limit 100;
             EXIT WHEN t_id_det_1.count <= 0;
         FOR indxj IN t_id_det_1.FIRST  .. t_id_det_1.LAST LOOP
                 INSERT INTO emp2(empno,
                           ename,
                           deptno )
                   VALUES (t_id_det_1(indxj).empno,
                           t_id_det_1(indxj).ename,
                          t_id_det_1(indxj).deptno
          END LOOP;
          END LOOP;
          CLOSE emp_inst;
          END LOOP;
          END LOOP;
          CLOSE dept_inst;
        EXCEPTION
               WHEN OTHERS
               THEN
                  dbms_output.put_line( 'exception in err insert' || SQLCODE ||' ' ||SQLERRM);
                  ROLLBACK;
                  RETURN;
        END;
I am getting below error
    TYPE id_tab_det_1 IS TABLE OF emp_inst(t_id_det_1(indxi).deptno)%ROWTYPE
ERROR at line 16:
ORA-06550: line 16, column 69:
PLS-00103: Encountered the symbol "%" when expecting one of the following:
; not null alter index characterEdited by: user11289444 on Dec 26, 2010 3:58 AM

Answer 1

hoek wrote:
I was referring to OP's second Bulk DML, the insert part.
You cannot reference individual columns there.Then you have to be even more specific. You cannot reference individual columns there unless you are on 11g:
SQL> select * from v$version
  2  /
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - Prod
PL/SQL Release 10.2.0.4.0 - Production
CORE    10.2.0.4.0      Production
TNS for 32-bit Windows: Version 10.2.0.4.0 - Production
NLSRTL Version 10.2.0.4.0 - Production
SQL> declare
  2    cursor dept_inst
  3    is
  4    select d.deptno
  5    from   dept d
  6    where  d.dname = 'RESEARCH';
  7    --
  8    cursor emp_inst(b_deptno in number)
  9    is
10    select e.empno
11    ,      e.ename
12    ,      e.deptno
13    from   emp1 e
14    where  e.deptno = b_deptno;
15    --
16    type depttype is table of number index by binary_integer;
17    depttab depttype;
18    type emptype is table of emp_inst%rowtype /*this will not work*/ index by binary_integer;
19    emptab emptype;
20    --
21  begin
22    --
23    open dept_inst;
24    loop
25     
26      fetch dept_inst bulk collect into depttab limit 100;
27      forall i in depttab.first..depttab.last
28        delete from emp2 where deptno = depttab(i);
29         --
30        dbms_output.put_line(sql%rowcount||' records were deleted from table emp2');
31        --
32  --      open emp_inst(depttab(i));
33        open emp_inst(depttab(1));
34        loop
35          fetch emp_inst bulk collect into emptab limit 100;
36          forall j in emptab.first..emptab.last
37            insert into emp2 values(emptab(j).empno,emptab(j).ename,emptab(j).deptno);
38          --
39          exit when emp_inst%notfound;
40          --
41        end loop;
42        exit when dept_inst%notfound;
43        close dept_inst;         
44      --
45    end loop;
46    close dept_inst;
47  end;
48  /
          insert into emp2 values(emptab(j).empno,emptab(j).ename,emptab(j).deptno);
ERROR at line 37:
ORA-06550: line 37, column 35:
PLS-00436: implementation restriction: cannot reference fields of BULK In-BIND
table of records
ORA-06550: line 37, column 35:
PLS-00382: expression is of wrong type
ORA-06550: line 37, column 51:
PLS-00436: implementation restriction: cannot reference fields of BULK In-BIND
table of records
ORA-06550: line 37, column 51:
PLS-00382: expression is of wrong type
ORA-06550: line 37, column 67:
PLS-00436: implementation restriction: cannot reference fields of BULK In-BIND
table of records
ORA-06550: line 37, column 67:
PLS-00382: expression is of wrong type
ORA-06550: line 37, column 35:
PL/SQL: ORA-22806: not an object or REF
ORA-06550: line 37, column 11:
PL/SQL: SQL Statement ignored
SQL> select * from v$version
  2  /
BANNER
Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production
PL/SQL Release 11.2.0.1.0 - Production
CORE    11.2.0.1.0      Production
TNS for 32-bit Windows: Version 11.2.0.1.0 - Production
NLSRTL Version 11.2.0.1.0 - Production
SQL> declare
  2    cursor dept_inst
  3    is
  4    select d.deptno
  5    from   dept d
  6    where  d.dname = 'RESEARCH';
  7    --
  8    cursor emp_inst(b_deptno in number)
  9    is
10    select e.empno
11    ,      e.ename
12    ,      e.deptno
13    from   emp1 e
14    where  e.deptno = b_deptno;
15    --
16    type depttype is table of number index by binary_integer;
17    depttab depttype;
18    type emptype is table of emp_inst%rowtype /*this will not work*/ index by binary_integer;
19    emptab emptype;
20    --
21  begin
22    --
23    open dept_inst;
24    loop
25     
26      fetch dept_inst bulk collect into depttab limit 100;
27      forall i in depttab.first..depttab.last
28        delete from emp2 where deptno = depttab(i);
29         --
30        dbms_output.put_line(sql%rowcount||' records were deleted from table emp2');
31        --
32  --      open emp_inst(depttab(i));
33        open emp_inst(depttab(1));
34        loop
35          fetch emp_inst bulk collect into emptab limit 100;
36          forall j in emptab.first..emptab.last
37            insert into emp2 values(emptab(j).empno,emptab(j).ename,emptab(j).deptno);
38          --
39          exit when emp_inst%notfound;
40          --
41        end loop;
42        exit when dept_inst%notfound;
43        close dept_inst;         
44      --
45    end loop;
46    close dept_inst;
47  end;
48  /
PL/SQL procedure successfully completed.
SQL> SY.