CREATE OR REPLACE PROCEDURE add_employee
(eno VARCHAR2,name VARCHAR2,deptno VARCHAR2, 
 sex VARCHAR2 DEFAULT '男',edate DATE,wdate DATE,
 natno VARCHAR2,pno VARCHAR2,esal NUMBER,ecomm NUMBER)
IS
  e_integerity EXCEPTION;
  PRAGMA exception_init(e_integerity,-2291);
BEGIN
  INSERT INTO employee VALUES(eno,name,deptno,sex,edate,wdate,
  natno,pno,esal,ecomm);
EXCEPTION
  WHEN DUP_VAL_ON_INDEX THEN
     raise_application_error(-20000,'雇員號(hào)不能重復(fù)');
  WHEN e_integerity THEN
    raise_application_error(-20001,'部門號(hào)不存在');       
END add_employee;