CREATE PACKAGE EMP_MGMT AS   ... EMP_MGMT 패키지의 선언부 ...

    FUNCTION HIRE(ENAME VARCHAR, ADDR VARCHAR, SALARY NUMBER, 
                  DEPTNO INT) RETURN INT;
    PROCEDURE FIRE(EMPNO INT);
    PROCEDURE RAISE_SALARY(EMPNO INT, AMOUNT NUMBER);
    EMP_NOT_FOUND EXCEPTION;

END EMP_MGMT;

CREATE PACKAGE BODY EMP_MGMT AS  ... EMP_MGMT 패키지의 구현부 ...

    NUM_EMP INT;
    EMPNO NUMBER := 0;

    FUNCTION HIRE(ENAME VARCHAR, ADDR VARCHAR, SALARY NUMBER, 
                  DEPTNO INT) RETURN INT AS
    BEGIN
        EMPNO := EMPNO + 1;      ... 새로운 EMPNO 생성 ...
        INSERT INTO EMP VALUES (EMPNO, ENAME, ADDR, SALARY, DEPTNO);
        NUM_EMP := NUM_EMP + 1;
        RETURN(EMPNO);
    END;

    PROCEDURE FIRE(EMPNO INT) AS
    BEGIN
        DELETE FROM EMP WHERE EMP.EMPNO = FIRE.EMPNO;
        NUM_EMP := NUM_EMP ? 1;
    END;

    PROCEDURE RAISE_SALARY(EMPNO INT, AMOUNT NUMBER) AS
    BEGIN
        UPDATE EMP SET SALARY = SALARY + AMOUNT 
        WHERE EMP.EMPNO = RAISE_SALARY.EMPNO;
    END;

END EMP_MGMT;