8.1.2 Création du corps du paquetage

CREATE PACKAGE BODY ges_pers IS
      FUNCTION f_age ( a_nom VARCHAR, a_prnm VARCHAR )
         RETURN a_age NUMBER IS
         BEGIN
           SELECT ROUND ( (SYSDATE - datnais) / 365.25 )
                  INTO a_age
                  FROM personnel
                  WHERE nom||prnm = a_nom||a_prnm;
           RETURN ( a_age );
         END;

      PROCEDURE p_suppers ( a_nom VARCHAR, a_pmm VARCHAR ) IS
         BEGIN
           DELETE FROM personnel
                  WHERE nom||prnm = a_nom||a_prnm;
         END;
END;