Copy Huge table..

CREATE OR REPLACE PROCEDURE copy_table
IS
CURSOR emp_cur IS SELECT /*+ PARALLEL (t1)*/ * FROM emp t1;

TYPE fetch_array_type IS TABLE OF emp_cur%ROWTYPE;
t_array fetch_array_type;

BEGIN

EXECUTE IMMEDIATE 'ALTER SESSION FORCE PARALLEL DML PARALLEL 4';

OPEN emp_cur ;
LOOP
FETCH emp_cur BULK COLLECT INTO t_array LIMIT 10000;
FORALL i IN 1..t_array.COUNT
INSERT /*+ APPEND */ INTO empl1 VALUES t_array(i) ;
EXIT WHEN emp_cur%NOTFOUND;
COMMIT;
END LOOP;
COMMIT;
CLOSE emp_cur;
END;
/