ORACLE 动态游标的使用

动态游标可以遍历动态的表，

格式：

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

如果查询的表的数据不同的，动态变化的，这时候可以用动态游标。

需要注意的是，动态游标的定义，

在普通存储过程中：需要放在 is 后面的第一行。

动态游标通过：open 游标 for 字符串，形式使用，遍历。

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;