procedure test isV_SQL_TASK VARCHAR2(1000);V_SQL_TASK:='SELECT * from test';BEGINOPEN RS_TASK FOR V_SQL_TASK;LOOPFETCH RS_TASKINTO test_TYPE;EXIT WHEN RS_TASK%NOTFOUND;--end loop;end ;
end test ;