How to write a procedure using collections

Question

how can we define collections inside procedure and use it
i am getting an error executing this proc
create or replace procedure p_collections
is
type calendar is varray(366) of  date;
calendar c1;
begin
for i in 1 .. 100
loop
select sysdate bulk collect into c1 from dual;
end loop;
DBMS_OUTPUT.PUT_LINE(c1);
end;Edited by: Rahul_India on Sep 12, 2012 2:54 PM
Edited by: Rahul_India on Sep 12, 2012 3:07 PM

Answer 1

That's because you only have one value in the array.
Here is sample code that you can test in the SCOTT schema.
set serveroutput on;
declare
  cursor my_cur is
  select empno from emp;
  type my_type is table of emp.ename%type;
  type my_type2 is table of emp.empno%type;
  dizi my_type;
  dizi2 my_type2;
  query VARCHAR2(100);
begin
  open my_cur;
  fetch my_cur bulk collect into dizi2;
  close my_cur;
  for i in dizi2.first..dizi2.last
  loop
    dbms_output.put_line(dizi2(i));
  end loop;
end;
/Or another sample using a LIMIT clause
The FETCH does a BULK COLLECT of all data into 'v'. It will either get all the data or none if there isn't any.
The LOOP construct would be used when you have a LIMIT clause so that Oracle would 'loop' back to
get the next set of records. Run this example in the SCOTT schema and you will see how the LIMIT clause works.
I have 14 records in my EMP table.
DECLARE
  CURSOR c1 IS (SELECT * FROM emp);
  TYPE typ_tbl IS TABLE OF c1%rowtype;
  v typ_tbl;
BEGIN
  OPEN c1;
  LOOP                                                 --Loop added
    FETCH c1 BULK COLLECT INTO v LIMIT 3; -- process 3 records at a time
        -- process the first 3 max records
       DBMS_OUTPUT.PUT_LINE('Processing ' || v.COUNT || ' records.');
        FOR i IN v.first..v.last LOOP
            DBMS_OUTPUT.PUT_LINE(v(i).empno);
        END LOOP; 
    EXIT WHEN c1%NOTFOUND;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE('All done');
END;In the FOR loop you would do any processing of the nested table you want to do
and could use a FORALL to do an INSERT into another table.