oracel造数据存储过程

create or replace procedure t_create_billion_record as

 i number;
v_org_belong varchar2(100);
v_org_type varchar2(100);
v_org_level varchar2(10);
v_area_code varchar2(20);
v_org_jglb varchar2(20);
v_ks varchar2(20);
v_ywsj date;
v_yblx varchar2(10);
v_mzfylx varchar2(10);
v_zbid varchar2(10);
v_org_jgmc varchar2(100);
v_zxz number(16,2);
begin
 i := 1;
while i<=100000000 loop
  select org_belong into v_org_belong from (select org_belong from t_b_org_belong  order by dbms_random.value) where rownum=1;
  select org_type into v_org_type from (select org_type from t_b_org_type  order by dbms_random.value) where rownum=1;
  select org_level into v_org_level from (select org_level from t_b_org_level  order by dbms_random.value) where rownum=1;
  select area_code into v_area_code from (select area_code from t_b_area_code  order by dbms_random.value) where rownum=1;
  select org_jglb into v_org_jglb from (select org_jglb from t_b_org_jglb  order by dbms_random.value) where rownum=1;
  select ks into v_ks from (select ks from t_b_ks  order by dbms_random.value) where rownum=1;
  select yblx into v_yblx from (select yblx from t_b_yblx  order by dbms_random.value) where rownum=1;
  select mzfylx into v_mzfylx from (select mzfylx from t_b_mzfylx  order by dbms_random.value) where rownum=1;
  select org_jgmc into v_org_jgmc from (select org_jgmc from t_b_org_jgmc  order by dbms_random.value) where rownum=1;         
  select zbid into v_zbid from (select zbid from t_b_zbid  order by dbms_random.value) where rownum=1;
  select to_date(2457024+trunc(dbms_random.value(0,2000)),'J') into v_ywsj from dual;
  select round(dbms_random.value(1,2000),2) into v_zxz from dual;
insert into MDL_MZFX_2
  (org_belong, org_type, org_level, area_code, org_jglb, ks, ywsj, yblx, mzfylx, zbid, org_jgmc,zxz, xfxh)
  values(v_org_belong, v_org_type, v_org_level, v_area_code, v_org_jglb, v_ks, v_ywsj, v_yblx, v_mzfylx, v_zbid, v_org_jgmc,v_zxz,'xfxh00001');

  commit;
   i := i + 1;
 end loop;
end t_create_billion_record;