The following process is implemented in 9i:Declare <br/> type t_rn is table of TMP. rn % Type Index by binary_integer; <br/> type t_ran is table of TMP. num % Type Index by binary_integer; <br/> rn t_rn; <br/> ran t_ran; <br/> cursor cur_num is <br/> select rownum, trunc (dbms_random.value, 2) * 100 <br/> from dual <br/> connect by rownum <= 100000; <br/> begin <br/> dbms_output.put_line (to_char (sysdate, 'yyyy-mm-dd hh24: MI: ss'); <br/> open cur_num; <br/> loop <br/> fetch cur_num bulk collect <br/> into RN, ran limit 5000; <br/> for I in 1 .. RN. count loop <br/> insert into TMP values (RN (I), ran (I); <br/> commit; <br/> end loop; <br/> exit when cur_num % notfound; <br/> end loop; <br/> close cur_num; <br/> dbms_output.put_line (to_char (sysdate, 'yyyy-mm-dd hh24: MI: ss'); <br/> end; <br/>
There is also a 10g implementation process