Procedure with collections

Question

Hi everybody,
I want to create to create one procedure when called it has to show next 10 records. I created procedure like this, but how to pass these values as OUT parameter in this procedure. When we pass number as parameter, it is displaying next 10 records correctly. I am facing problem, how to pass this 10 record set as OUT parameter.
CREATE OR REPLACE PROCEDURE display_next1 (x number) IS
TYPE mcd IS TABLE OF CAR_MODEL_MSTR%ROWTYPE;
mcd1 mcd;
CURSOR c1 IS SELECT * FROM CAR_MODEL_MSTR order by col1;
c number(5) ;
BEGIN
OPEN c1;
Fetch c1 BULK COLLECT into mcd1;
c := x ;
For i in x .. x+10 Loop
     Dbms_Output.Put_Line( mcd1(c).CAR_MODEL_CD ) ;
     c := mcd1.NEXT(c) ;
Exit When c IS NULL ;
End loop ;
END display_next1;
Thanks in advance
Pal

Answer 1

Hi!
hope this code will help u a bit ----
SQL> create type np is table of number;
  2  /
Type created.
SQL> ed
Wrote file afiedt.buf
  1     Create or Replace Procedure myProc(myArray np)
  2      is
  3      i   number(10);
  4      rec emp%rowtype;
  5      Begin
  6         for i in myArray.first..myArray.last
  7         loop
  8           select *
  9           into rec
10           from emp
11           where empno = myArray(i);
12        dbms_output.put_line('Employee No:'||rec.empno||' Name:'||rec.ename);
13        end loop;
14*   End myProc;
15  /
Procedure created.
SQL> declare
  2      v np:=np(6666,7777);
  3  begin
  4    myProc(v);
  5  end;
  6  /
Employee No:6666 Name:prithwi
Employee No:7777 Name:AvikRegards.
Satyaki De