子程序与触发器

create or replace procedure 
pro_add_teacher(p_tname varchar2,p_tid teacher.tid%type,p_gender char,p_birthday date,p_sal teacher.sal%type)
as
e_tid_validate exception;
begin
   if length(trim(p_tid))!=18 then
     raise e_tid_validate;
   end if;
    insert into teacher(tno,tname,tid,gender,birthdate,sal)
    values(sq_teacher.nextval,p_tname,p_tid,p_gender,p_birthday,p_sal);
    commit;
 exception
    when e_tid_validate then
      dbms_output.put_line(‘身份证号码错误‘);
    when others then
      dbms_output.put_line(‘内部错误‘);
      rollback;
end pro_add_teacher;