execute immediate cursor

ORACLE存储过程中动态SQL语句传值给游标解决方案：
create or replace procedure pro_test
  as
TYPE ref_cursor_type IS REF CURSOR;
ctxx ref_cursor_type;
xhcs varchar2(10);
v_sql varchar2(100);
sqlStr varchar2(100);
  begin
  v_sql := 'select xh from a_test';
  open   ctxx   for   v_sql;
   loop
                       fetch ctxx into xhcs;
                       exit when ctxx%notfound;
                            sqlStr := 'insert into a_test2 values('||xhcs||')';
                            execute immediate sqlStr;
                    end loop;
                   close ctxx;
   commit;
  end;