Testing procedure that returns cursor.

Question

Please
How Can I test a procedure that returns a cursor? I need to execute it on sqlplus.
Thank you very much

Answer 1

Hi,
Example using HR schema:
The proc_cursor procedure returns a cursor and the block below test it
SET SERVEROUTPUT ON
DECLARE
    TYPE t_ref_cur IS REF CURSOR;
    v_cursor   t_ref_cur;
    v_employee employees%ROWTYPE;
    PROCEDURE proc_cursor(p_cursor OUT t_ref_cur) IS
        v_sql VARCHAR2(4000);
    BEGIN
        v_sql := 'SELECT * FROM EMPLOYEES';
        OPEN p_cursor FOR v_sql;
    END;
BEGIN
    proc_cursor(p_cursor => v_cursor);
    LOOP
        FETCH v_cursor
            INTO v_employee;
        EXIT WHEN v_cursor%NOTFOUND;
        dbms_output.put_line(v_employee.employee_id);
    END LOOP;
    CLOSE v_cursor;
END;
/Regards,