procedure Insertion(code in Client.numclient%type, titre in CLIENT.NOMCLIENT%type, prenom in CLIENT.PRENOMCLIENT%type, domicile in CLIENT.ADRESSE%type, email in CLIENT.COURRIEL%type ) AS
  BEGIN
    INSERT INTO CLIENT values(code,titre,prenom,domicile,email);
    /* TODO implementation required */
    NULL;
  END Insertion;

  procedure Supprimer(code in Client.numclient%type) AS
  BEGIN
    Delete from Client where numclient = code;
    /* TODO implementation required */
    NULL;
  END Supprimer;

  procedure Selection(requete out enregistrement) AS
  BEGIN

    open requete for Select * from client;
    /* TODO implementation required */
    NULL;
  END Selection;

  function Lister return enregistrement as sortie enregistrement;
  begin
  open sortie for select * from client;
  return sortie;
  end;