oracle存储过程随笔

有时间要把最近总结的存储过程的问题总结一下，先占坑；

 create or replace procedure test_proc2 as
    cursor cur  is select YWR,YWRZJH from dyrxx ;  --定义游标
    TYPE test_type IS TABLE OF cur%ROWTYPE;
    test_data test_type;

 v_v1 number(10);
 v_v2 number(10);

 begin

       v_v1 := 0;
       v_v2 := 0;

 -- 打开游标.
 OPEN cur;
  --开始循环
  LOOP
   -- 填充数据批量填充，每次读取2条.
    FETCH cur BULK COLLECT INTO test_data LIMIT 200;

     FOR i IN 1..test_data.count
     loop
         select count(t2.qlid) into v_v1 from (
             select t.qlid from gd_fwsyq t
             left join gd_qlr a on a.qlid=t.qlid and a.qlrlx='qlr'
             where t.iszx=0 and a.qlr is not null
             and a.qlr=test_data(i).YWR and a.qlrzjh=test_data(i).YWRZJH
             group by t.qlid
         )t2;

         select count(t2.qlid) into v_v2 from (
             select a.qlid from bdc_fdcq a
             left join bdc_qlr b on a.proid=b.proid and b.qlrlx='qlr'
             where a.qszt=1
             and b.qlr=test_data(i).YWR and b.qlrzjh=test_data(i).YWRZJH
             group by a.qlid
         )t2;

         -- dbms_output.put_line(v_v1+v_v2);

         insert into ZJT_TEST_TEMP VALUES(v_v1+v_v2);

       end loop;

       -- 当没有数据的时候，退出。

       EXIT WHEN cur%NOTFOUND;

  END LOOP;
  commit;
  --关闭游标.
  CLOSE cur;

 end test_proc2;