Oracle BULK COLLECT批量取数据提高效率

-- Created on 2010/11/04 by WANGNAN
declare
  -- Local variables here
  i integer;
  TYPE t_table IS TABLE OF VARCHAR2(10 ) INDEX BY VARCHAR2 (2);
  v_t_table t_table;

  TYPE t_pg3 IS TABLE OF asis.PG3_AGENTCD_CONVERSION% ROWTYPE;
  v_pg3_table t_pg3;

  c_pg3_vendor com.cRef;
  v_str VARCHAR2( 250);
begin
  -- Test statements here
  OPEN c_pg3_vendor FOR SELECT * FROM asis.PG3_AGENTCD_CONVERSION;

  FETCH c_pg3_vendor BULK COLLECT INTO v_pg3_table;
  FOR i IN 1 .. v_pg3_table.count LOOP
      v_t_table(v_pg3_table(i).ASIS_AGENT_CD) := v_pg3_table(i).TOBE_VENDOR_CD;
  END LOOP;

  v_str := v_t_table.first;
  WHILE v_str is NOT NULL LOOP
       dbms_output.put_line(v_str || ' : ' ||v_t_table(v_str));
       v_str := v_t_table.next(v_str);
  END LOOP;

  EXCEPTION WHEN OTHERS THEN
        dbms_output.put_line( sqlerrm);
END;