Open cursors in loop (cursor name as a variable)

Question

Hi,
I have such a problem:
In my procedure I have declared 200 cursors.
Now I want to open,fetch and close them one by one in Loop .
I'm thinking about some array with all cursor's names.
That is what I have (maybe stupid example but just to explain the issue) :
DECLARE
v_empno VARCHAR2(10);
v_empname VARCHAR2(10);
Cursor c1 IS
SELECT '1' EMPNO,'Adam' EMPNAME
FROM dual;
Cursor c2 IS
SELECT '2' EMPNO,'John' EMPNAME
FROM dual;
BEGIN
OPEN c1;
LOOP
FETCH c1 INTO v_empno, v_empname;
EXIT WHEN c1%NOTFOUND;
dbms_output.put_line (v_empno||' '|| v_empname);
END LOOP;
CLOSE c1;
OPEN c2;
LOOP
FETCH c2 INTO v_empno, v_empname;
EXIT WHEN c2%NOTFOUND;
dbms_output.put_line (v_empno||' '|| v_empname);
END LOOP;
CLOSE c2;
END;
And that is what I want to achieve:
DECLARE
v_empno VARCHAR2(10);
v_empname VARCHAR2(10);
TYPE cursors_tab IS TABLE OF VARCHAR(5);
t_cursors cursors_tab := cursors_tab('c1','c2');
Cursor c1 IS
SELECT '1' EMPNO,'Adam' EMPNAME
FROM dual;
Cursor c2 IS
SELECT '2' EMPNO,'John' EMPNAME
FROM dual;
BEGIN
for i in t_cursors.first .. t_cursors.last loop
OPEN :t_cursors(i);
LOOP
FETCH :t_cursors(i) INTO v_empno, v_empname;
EXIT WHEN t_cursors(i)%NOTFOUND;
dbms_output.put_line (v_empno||' '|| v_empname);
END LOOP;
CLOSE :t_cursors(i);
end loop;
END;
Is that possible ?? I'm trying to solve it but I'm loosing hope ;)

Answer 1

DECLARE
v_empno VARCHAR2(10);
v_empname VARCHAR2(10);
TYPE stmt_tab IS TABLE OF VARCHAR(32767);
t_stmt stmt_tab := stmt_tab(
                            'SELECT ''1'' EMPNO,''Adam'' EMPNAME FROM dual',
                            'SELECT ''2'' EMPNO,''John'' EMPNAME FROM dual'
t_cur sys_refcursor;
BEGIN
for i in t_stmt.first .. t_stmt.last loop
OPEN t_cur for t_stmt(i);
LOOP
FETCH t_cur INTO v_empno, v_empname;
EXIT WHEN t_cur%NOTFOUND;
dbms_output.put_line (v_empno||' '|| v_empname);
END LOOP;
CLOSE t_cur;
end loop;
END;
1 Adam
2 John
PL/SQL procedure successfully completed.
SQL> SY.