Быстрое копирование больших таблиц. Oracle DB.

 
DECLARE
  -- ОБЪЯВЛЯЕМ КУРСОР
  CURSOR CUR IS
  SELECT * FROM <ТАБЛИЦА ИСТОЧНИК>;
  -- ПОЛЬЗОВАТЕЛЬСКИЙ ТИП НА ОСНОВАНИИ РЕЗУЛЬТИРУЮЩЕГО НАБОРА КУРСОРА
  TYPE T_FETCH_TABLE IS TABLE OF CUR%ROWTYPE;
  -- ОБЪЯВЛЯЕМ КОЛЛЕКЦИЮ С ПОЛЬЗОВАТЕЛЬСКИМ ТИПОМ
  L_ARRAY T_FETCH_TABLE;
BEGIN
   -- ОТКРЫВАЕМ КУРСОР И В ЦИКЛЕ ЕГО ОБРАБАТЫВАЕМ
   OPEN CUR;
   LOOP
      -- ОТ КУРСОРА ОТКУСЫВАЕМ ПО #cc66cc;">1000 ЗАПИСЕЙ
      FETCH CUR BULK COLLECT
      INTO L_ARRAY LIMIT #cc66cc;">1000;
      -- ЕСЛИ НЕОБРАБОТАННЫЕ ЗАПИСИ ЗАКОНЧИЛИСЬ, ТО ЗАВЕРШАЕМ ЦИКЛ
      EXIT WHEN L_ARRAY.COUNT = #cc66cc;">0;
      -- БЫСТРАЯ ВСТАВКА ЗАПИСЕЙ В ТАБЛИЦУ
      FORALL I IN #cc66cc;">1 .. L_ARRAY.COUNT
        INSERT INTO <ТАБЛИЦА НАЗНАЧЕНИЯ> VALUES L_ARRAY(I);
        COMMIT;
      END LOOP;  
   CLOSE CUR;
EXCEPTION
WHEN OTHERS THEN
  DBMS_OUTPUT.PUT_LINE('ОШИБКА!' || CHR(#cc66cc;">13) || CHR(#cc66cc;">10) || ' -> ' || SQLERRM);
END;