Copying value from one cursor to another

Question

Hi,
I have a problem while copying values from one cursor to another cursor.
The code looks like below.
PROCEDURE XYZ
            TransactionResultSet OUT NOCOPY types.ref_cursor,
IS
            temp_cursor types.ref_cursor;
            wip_rec types.ref_cursor;
BEGIN
DECLARE
                CURSOR temp_cursor IS
            SELECT ...........
END;
BEGIN     
    FOR wip_rec IN temp_cursor
    LOOP
    update tinsagr set something
    where {the condition}
        IF SQL%ROWCOUNT = 0 THEN
  dbms_output.put_line('this is test ');
        Fetch wip_rec into TransactionResultSet;
     END IF;
   END LOOP;so basically i want to iterate the "temp_cursor" and depending on the values i get it from here i shall update a table. Actually i want to exclude few records from "temp_cursor" and add it/copy rest of the records to "TransactionResultSet"
That means say initially " temp_cursor" has 100 records and i updated 5 records in a table and same number of records should be excluded and rest should be added to the output cursor TransactionResultSet.
How do i achieve it?
while saving i am getting
(1): PLS-00456: item 'WIP_REC' is not a cursor.
Do any one has any idea what to do in such scenario?

Answer 1

There are options like....
SQL> CREATE OR REPLACE TYPE emp_obj AS OBJECT (ename VARCHAR2(50), dept NUMBER);
  2  /
Type created.
SQL> CREATE OR REPLACE TYPE emp_tbl IS TABLE OF emp_obj;
  2  /
Type created.
SQL> set serverou on
SP2-0158: unknown SET option "serverou"
SQL> set serverout on
SQL> DECLARE
  2    rc      sys_refcursor;
  3    v_ename emp.ename%TYPE;
  4    v_dept  emp.deptno%TYPE;
  5    ---End Of Local Varriable Declaration
  6    --Procedire declaration !
  7    PROCEDURE TEST_CUR(pi_out_ref_cur IN OUT sys_refcursor) IS
  8      emp_rec emp_tbl;
  9    BEGIN
10      /* This BULK COLLECT can be done with explicit cursor,Ref Cursor
11      with some simple modification, Here I have used implicit cursor! */
12      SELECT emp_obj(ename, deptno) --Casting as the object
13      BULK COLLECT
14        INTO emp_rec
15        FROM emp
16       WHERE deptno = 10;
17   
18      dbms_output.put_line('Records selected are:');
19      FOR i in 1 .. emp_rec.COUNT LOOP
20        dbms_output.put_line(emp_rec(i).ename || '--' || emp_rec(i).dept);
21      END LOOP;
22      --Now we are filtering the record and may be doing some operation with each record.
23      FOR i in 1 .. emp_rec.COUNT LOOP
24        IF emp_rec(i).ename = 'KING' THEN
25          --You can change this IF according to your need.
26          emp_rec.DELETE(i);
27        END IF;
28      END LOOP;
29      OPEN pi_out_ref_cur FOR
30        SELECT * FROM TABLE(emp_rec); --Using the TYPE AS table.
31    END TEST_CUR;
32    /* Main execution or procedure calling section*/
33  BEGIN
34    --Actual calling
35    TEST_CUR(rc);
36    dbms_output.new_line;
37    dbms_output.put_line('Now in Ref Cursor');
38    dbms_output.put_line('****************');
39    LOOP
40      FETCH rc
41        INTO v_ename, v_dept;
42      dbms_output.put_line(v_ename || '--' || v_dept);
43      EXIT WHEN rc%NOTFOUND;
44    END LOOP;
45 
46  END;
47  /
Records selected are:
CLARK--10
KING--10
MILLER--10
Now in Ref Cursor
CLARK--10
MILLER--10
MILLER--10
PL/SQL procedure successfully completed.
SQL>