SelectStatement in a VarChar2: how to execute?

Question

Hello Everyone
In my function I have a quite long algorithm. The code for this one is repeated 3 times since my function has a parameter where you can choose what kinds of data are put into the algorithm. So, in order to remove this redundant code I have a query-varchar which is different according to the choice.
My problem now is, that I dont know how to execute this and put the result in a "for x in <myresult>"
I found out about execute immediate but this one seems to have quite some restrictions and I dont have dynamic parameters.
Here is how it looks until now:
if choice = 1 then
query := 'select a, b, c from myTable where a = 1'
elsif choice = 2 then
query := 'select a, b, c from myTable where b = 5'
elsif choice = 3 then
query := 'select a, b, c from myTable where c = 3'
<result> = <execute query>
for x in (
<result>)
loop
do some stuff
end loop;
Is there a way to achieve this? Its very important for me, since it would make the code much easier to read and maintain.
regard
Marc

Answer 1

Hi maschlegel
I've worked on a similar problem in past. Here is some skeleton code:
DECLARE
v_FinalSQL varchar2(5000);
TYPE RefCurTyp IS REF CURSOR;
cQPRList RefCurTyp;
v_IsChronic varchar2(1);
v_DefRespID integer;
v_VehDefID integer;
BEGIN
v_FinalSQL := 'select x,y,z from ...';
OPEN cQPRList FOR v_FinalSQL;
LOOP FETCH cQPRList INTO v_DefRespID, v_VehDefID, v_IsChronic;
EXIT WHEN cQPRList%NOTFOUND;
DO SOME STUFF;
END LOOP;
CLOSE cQPRList;
END;
Hope this Helps
Taner Akbulut