create or replace type body personnel_type as
	instantiable final member procedure majAdresse (a in varchar) is
	begin
		self.adresse:=a;
	end majAdresse;

	instantiable final member procedure affichePersonnel is
	begin
		DBMS_OUTPUT.PUT_LINE(self.nom||' '||self.prenom||' '||self.adresse);
	end affichePersonnel;

	instantiable not final member procedure affiche is
	begin
		self.affichePersonnel;
	end affiche;

	instantiable final member function compte_conseil return integer is
	nb integer;
	begin
		select count(pc.persennelPC) into nb from personnelConseil pc
		where pc.personnelPC.noIsee=self.noInsee;
		return nb;
	end compte_conseil;
end;
/
