oracle 存儲過程循環打開游標數據處理

2017-07-24 14:12:42

SQL內容：

　　1.一次性檢索 100000 條數據。

　　2. 1000 條提交一次。

　　3.超過 100000 萬條，重新打開游標，重新檢索。

pl/sql內容如下：

CREATE OR REPLACE PROCEDURE P_MDF_TEST ( branchno1 in varchar )
AS
    cursor cur_inst is select plcno from t1test where
    branch in (  select branchcode from t_test start with branchcode =branchno1 connect by prior branchcode = supercode )
    and primprdcode in ( '123', '234')
    and ( InsExprtDate <> date '9999-12-31'  or  InsExprtDate is null );
    record cur_inst%rowtype;
    i_count int;
    iFlag int ;
 --   v_end varchar2(30);  時間
BEGIN
   dbms_output.put_line('開始執行');
    iFlag :=1;
    loop
    if iFlag = 0 then
      exit;
    end if;
    i_count:=0;
    open cur_inst;
       if cur_inst%isopen  then
       loop
           fetch cur_inst into record;
           if  cur_inst%notfound   then
             iFlag:=0;
             exit;
           end if ;
           update t1test set InsExprtDate =date '9999-12-31' where plcno=record.plcno;
           update t2test set InsExprtDate =date '9999-12-31' where plcno=record.plcno;
      --  dbms_output.put_line(record.plcno);
            i_count := i_count + 1;
            if i_count >=1000 then
        --      dbms_output.put_line(i_count);
        --      select to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') into v_end from dual;
        --     dbms_output.put_line(v_end);
               i_count:=0;
               commit;
            end if ;
           if cur_inst%ROWCOUNT >=100000  then
        --    dbms_output.put_line('進來了');
         -- dbms_output.put_line(cur_inst%ROWCOUNT);
              exit ;
           end if ;
       end loop;
       commit;
       close cur_inst;
       end if;
    end loop;
    dbms_output.put_line('執行結束');
END;

 

新建測試窗口，執行以下內容：

begin
  -- Call the procedure
  p_mdf_test(branchno1 => '122');
end;