Procédures

   subtype T_Nbr_Procedure is Natural range 0..Max_Sous_Programmes;

   type T_Info_Procedure is
      record
         Nom            : Unbounded_String;
         Titre_Menu     : Unbounded_String;
         Commentaire    : Unbounded_String := Null_Unbounded_String;
         Generique      : T_Info_Generic;
         Parametres     : T_Parametre;
      end record;

   type T_Tab_Procedure is array (T_Nbr_Procedure) of T_Info_Procedure;
   type T_Procedure is
      record
         Nbr_Procedures : T_Nbr_Procedure := 0;
         Tab_Procedure  : T_Tab_Procedure;
      end record;

Une procédure est caractérisée par un nom et une liste de paramètres(structure ci-dessus). Afin de pouvoir indiquer si une instanciation préalable devra être nécessaire nous avons rajouté un champ ``Generique'' qui contiendra donc les lignes des différents paramètres de la généricité. Si cette procédure n'est pas générique le nombre de ligne de généricité sera tout simplement à 0. Pour l'affichage nous avions encore besoin de deux champs, l'un qui sera l'intitulé du menu lié à la procédure dans le programme de test, est un champ optionnel pour un éventuelle commentaire.