Problem in Program unit

Question

Hi all experts,
PROCEDURE fun_a(cond varchar2) IS
declare
cursor m_cur1 is
select name, id from member where sex = 'F';
cursor m_cur2 is
select name,id from member;
BEGIN
if cond = 'F' then
     m_cur1 := m_cur1;
else
     m_cur1 := m_cur2;
end if;
for mc in m_cur1
loop
-- Do something. many lines
end loop;
END;
it appears error during compiling in assign cursor to cursor,
anyone have ideas how to solve this problem.
This program has to base on the cond to use the correct sql.
I cant duplicate the for loop coz it has many lines.
Thanks

Answer 1

Or maybe use a REF Cursor:
PROCEDURE fun_a(cond varchar2) IS
  Type     Ref_cursor_type is REF CURSOR;
  m_cur    Ref_cursor_type;
  v_sql    Varchar2(4000);
  cursor mc_row is
    select name,id from member;
  mc mc_row%rowtype;
BEGIN
  if cond = 'F' then
    v_sql := 'select name,id from member where sex = ''F''';
  else
    v_sql := 'select name,id from member';
  end if;
  Open m_cur for v_sql;
  Loop
    Fetch m_cur into mc;
    Exit when m_cur%NotFound;
    -- Do something, many lines
  End loop;
  Close m_cur;
END;