How to fetch from cursor into plsql collection

Question

Dear Friends,
I am trying to understand PLSQL collections. I am trying with the following example.
CREATE OR REPLACE TYPE emp_obj AS OBJECT
(     empname          VARCHAR2(100),     empjob          VARCHAR2(50),     empsal          NUMBER);
CREATE OR REPLACE TYPE emp_tbl IS TABLE OF emp_obj;
CREATE OR REPLACE PACKAGE eg_collection AS
-- Delcare ref cursor
TYPE rc IS REF CURSOR;
-- Procedure
PROCEDURE eg_collection_proc (out_result OUT rc);
END;
CREATE OR REPLACE PACKAGE BODY eg_collection AS
PROCEDURE eg_collection_proc( out_result OUT rc) AS
emp_tdt     emp_tbl := emp_tbl(emp_obj('oracle','DBA',100));
CURSOR c2 IS SELECT ename,job,sal FROM emp WHERE sal > 2000;
-- Declare a record type to hold the records from cursor and then pass to the collection
emp_rec emp_obj;
BEGIN
     OPEN c2;
     LOOP FETCH c1 INTO emp_rec;
          EXIT WHEN c1%NOTFOUND;
          emp_tdt.extend;
emp_tdt(emp_tdt.count) := emp_rec;
     END LOOP;
     CLOSE c2;
OPEN out_result FOR SELECT * FROM TABLE(CAST(emp_tdt AS emp_tbl));
END eg_collection_proc;
END eg_collection;
Executing the proc
variable r refcursor;
exec eg_collection.eg_collection_proc(:r);
print r;
But I am getting compilation error type mismatch found at emp_rec between fetch cursor into variable

Answer 1

I am trying to understand PLSQL collections. I dont why the code is not working
SQL> CREATE OR REPLACE TYPE emp_obj AS OBJECT
2 (
3      empname          VARCHAR2(100),
4      empjob          VARCHAR2(50),
5      empsal          NUMBER
6 )
7 /
Type created.
SQL> CREATE OR REPLACE TYPE emp_tbl IS TABLE OF emp_obj
2 /
Type created.
SQL> DECLARE
2      emp_tdt emp_tbl := emp_tbl ();
3 BEGIN
4
5      emp_tdt.extend;
6      SELECT emp_obj(ename, job, sal) BULK COLLECT INTO emp_tdt
7      FROM emp WHERE sal < 4000;
8
9      DBMS_OUTPUT.PUT_LINE ('The total count is ' || emp_tdt.count);
10
11      emp_tdt.extend;
12      SELECT ename, job, sal INTO emp_tdt(1).empname, emp_tdt(1).empjob, emp_tdt(1).empsal
13      FROM emp WHERE empno = 7900;
14
15      DBMS_OUTPUT.PUT_LINE ('The total count is ' || emp_tdt.count);
16
17 END;
18 /
The total count is 13
The total count is 14
PL/SQL procedure successfully completed.
SQL> DECLARE
2      emp_tdt emp_tbl := emp_tbl ();
3 BEGIN
4
5      emp_tdt.extend;
6      SELECT ename, job, sal INTO emp_tdt(1).empname, emp_tdt(1).empjob, emp_tdt(1).empsal
7      FROM emp WHERE empno = 7900;
8
9      DBMS_OUTPUT.PUT_LINE ('The total count is ' || emp_tdt.count);
10
11      emp_tdt.extend;
12      SELECT emp_obj(ename, job, sal) BULK COLLECT INTO emp_tdt
13      FROM emp WHERE sal < 4000;
14
15      DBMS_OUTPUT.PUT_LINE ('The total count is ' || emp_tdt.count);
16 END;
17 /
DECLARE
ERROR at line 1:
ORA-06530: Reference to uninitialized composite
ORA-06512: at line 6