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;