急！急！急！Oracle游标操作

Question

IF inVc2Course='' THEN
 Vc2Where := Vc2Where+'UNSO_KAISHA_CD ='+ inVc2UnsoCode;
END IF; --ZAIKO_KBN
Vc2SQL := ' SELECT SHUKKA_NO, GYO_NO, SHUKKA_DATE, CHAKKA_DATE, T_FROM_BASHO_CD, T_TO_BASHO_CD, BIN_CD, '
+'UNSO_KAISHA_CD,COURSE_CD,TENSO_KINGAKU,HIMMOKU_CD,BANTE,KANRI_DATE_KBN,SHITEI_DATE,TENSO_CS,'
+'TENSO_BS,TENSO_SOSU,HIKIATE_ZUMI_FLG,SHUKKASHIJI_FLG FROM D_TENSO_YOTEI '
+'  WHERE  T_FROM_BASHO_CD = inVc2BaSho AND SHUKKA_DATE = inNumDate '
+Vc2Where+' AND HIKIATE_ZUMI_FLG = ''0''  ORDER BY SHUKKA_NO, GYO_NO';如何把Vc2SQL查询的结果返回给一个游标？谢谢！

Answer 1

DECLARE
   TYPE t_sor IS REF CURSOR;
 
   v_sor    t_sor;
   v_info   scott.emp%ROWTYPE;
   v_str    VARCHAR2 (50);
   
BEGIN
   v_str := 'select   *   from   scott.emp';
 
   OPEN v_sor FOR v_str;
 
   LOOP
      FETCH v_sor
       INTO v_info;
 
      EXIT WHEN v_sor%NOTFOUND;
      DBMS_OUTPUT.put_line (v_info.empno);
   END LOOP;
END;