package MINE is
  type PERSONNEL is record
    LAST : string(20 downto 1);
    FIRST : string(20 downto 1);
    MID : character;
    SOC_SEC : integer range 0 to 999999999;
  end record;
  constant MY_PERSONNEL_RECORD : PERSONNEL
    := ("Gaede               ", 
        "Rhonda              ", 'K', 999274819);
end MINE;