create table T_DATA_TYPE
(
  TID      NUMBER,
  TNAME    VARCHAR2(20),
  TAGE     NUMBER,
  TGENDER  VARCHAR2(2),
  TBIRTH   DATE,
  TADRESS  VARCHAR2(512),
  TPHONE   VARCHAR2(11),
  TMATE    VARCHAR2(20),
  TCOMPANY VARCHAR2(64),
  TBLOB    BLOB,
  TCLOB    CLOB
);
create or replace procedure p_data_type(num in int,cot out number) as
  v_errcode number;
  v_errmsg  varchar2(200);
  v_count number;
  v_clob varchar2(32766) := '动，印行1000万册..坚强  ';
begin


  for i in 1 .. num loop
    insert into t_data_type
      (TID,
       TNAME,
       --TAGE,
       TGENDER,
       TBIRTH,
       TADRESS,
       TPHONE,
       TMATE,
       TCOMPANY,
       --TBLOB,
       TCLOB)
    values
      (TO_CHAR(SYSDATE, 'YYYYMMDD') ||
       LPAD(TO_CHAR(SEQ_data_type.NEXTVAL), 7, '0'),
       f_get_chinaname(1),
       case trunc(dbms_random.value(1, 3))
         when 1 then
          'M'
         else
          'F'
       end,
       trunc(sysdate) - trunc(dbms_random.value(7200, 9400)),
       '解放大道' || trunc(dbms_random.value(1, 99999)) || '号',
       '13' || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)),
       f_get_chinaname(1),
       substr(sys_guid(), 1, 11),
       v_clob);
    commit;
    
    update t_data_type t set t.tage = trunc((sysdate-TBIRTH)/365);
    commit;
  end loop;
  
  select count(*) into v_count from t_data_type;
  cot:=v_count;


exception
  when others then
    v_errcode := sqlcode;
    v_errmsg  := substr(sqlerrm, 1, 200);
    dbms_output.put_line(v_errcode || ':' || v_errmsg);
end;