Oracle动态游标实现动态SQL循环遍历，和静态游标的比较。

TYPE 游标类型 IS REF CURSOR;  --定义一个动态游标
游标名　　游标类型;

create or replace procedure P_TEST_SQL 
is    
TYPE ref_cursor_type IS REF CURSOR;  --定义一个动态游标     
tablename varchar2(200) default ‘ess_client‘;    
v_sql varchar2(1000);    
mobile varchar2(15);    
usrs ref_cursor_type;    
begin    
  --使用连接符拼接成一条完整SQL     
  v_sql := ‘select usrmsisdn from ‘||tablename||‘ where rownum < 11‘;    
  --打开游标     
  open usrs for v_sql ;    
  loop    
      fetch usrs into mobile;     
      exit when usrs%notfound;    
      insert into tmp(usrmsisdn) values(mobile);    
  end loop;    
  close usrs;    
  commit;    
end P_TEST_SQL;  

create or replace procedure DDGZ1--订单跟踪
(     
       P_flag varchar,--订单类型
       P_operate varchar,--操作类型
       P_BH varchar --传入的编号ID
)
is
      TYPE ref_cursor_type IS REF CURSOR;
       v_cur_CKD  ref_cursor_type;
        
begin
   open v_cur_CKD for ‘select v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jlsj from tmp_DDGZ1‘; 
   fetch v_cur_CKD into v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jzsj;
   while v_cur_CKD%found
     loop        
     insert into DRPDDGZJL2 (JLID,DRP,ERP,JXS,JXSMC,JLSJ,GZJL,CZR,BHID) values(SYS_GUID(),v_drp,v_erp,v_jxs,v_jxsmc,v_jzsj,v_DWMC||‘受托代销成品库接收订单，组织发货‘,v_CZR,‘出库单‘||P_BH); 
     fetch v_cur_CKD into v_ERP,v_DRP,v_jxsmc,v_jxs,v_DWMC,v_czr,v_jzsj;
     end loop;
     close v_cur_CKD;
 end;

CREATE OR REPLACE PACKAGE BIA_FYJSDCX 

is  --发运结算单查询
  type T_CURSOR is ref cursor;
  procedure ERP_HY_FYJSDCX
  (
    Re_CURSOR out T_CURSOR
  );
end BIA_FYJSDCX;

  procedure ERP_HY_FYJSDCX
  (
    Re_CURSOR out T_CURSOR
  )
begin
     v_sql:=‘select * from T_FYJSDCX4‘;
      Open Re_CURSOR For v_sql; 

end;