create or replace procedure p_insert(num in int) as
  v_errcode number;
  v_errmsg  varchar2(200);
  
  t1 number;
  t2 number;
  procedure get_time(t out number) is
  begin
    select to_char(sysdate, 'sssss') into t from dual;
  end;
begin
  get_time(t1);
  for i in 1 .. num loop
    insert into t_test
      (TID, TNAME, TGENDER, TPHONE, TPASSWORD, TDATE)
    values
      (TO_CHAR(SYSDATE, 'YYYYMMDD') ||
       LPAD(TO_CHAR(SEQ_SUBSID.NEXTVAL), 7, '0'),
       f_get_chinaname(1),
       case trunc(dbms_random.value(1, 3))
         when 1 then
          '1'
         else
          '2'
       end,
       '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)),
       substr(sys_guid(), 1, 5),
       sysdate);
    commit;
  end loop;
  
  get_time(t2);
  
  dbms_output.put_line(t1);
  dbms_output.put_line(t2-t1);
exception
  when others then
    v_errcode := sqlcode;
    v_errmsg  := substr(sqlerrm, 1, 200);
    dbms_output.put_line(v_errcode || ':' || v_errmsg);
end;