Solution Absente routine

remarque: routine essentiielle de gestion des echecs dans les actions

1 index
remarque : si S = 1, on teste la solution suivante

          si S = 0
          alors index 4
     repeter
          Numero de Solution = Numero de Solution + 1
          routine Solution(Numero de Solution)
          retour
     jusqu'a Numero de Solution = Nombre de Solutions(X)
     index 3

2 index
     Objet(Nombre d'Objets d'Erreur+1) = Motif de l'Erreur
     out Liste des Motifs d'Erreur, Objet(Nombre d'Objets d'Erreur+1)
     out, "Attente de Solution", Objet(Nombre d'Objets d'Erreur+1), Routine Echouee

3 index
remarque : Creation de Nouvelles Solutions

     action "ecrire", Une Solution
     si Une Solution = ecrite
     alors out Liste des Motifs d'Erreur, Objet(Nombre d'Objets d'Erreur+1), Une Solution
     routine Solution(Nombre de Solutions + 1)
     retour Echec, index 1

4 index
remarque : teste si l'erreur est repertoriee

     in Liste des Motifs d'Erreur, Nombre d'Objets d'Erreur
     X=0
     Y=0
     repeter
          X=X+1
          in Liste des Motifs d'Erreur, Objet(X)
               si Motif de l'Erreur = Objet(X)
               alors Y = X
               alors X = Nombre d'Objets d'Erreur
     jusqu'a X = Nombre d'Objets d'Erreur
          si Y <> 0
          alors S = 1
          alors Numero de Solution = 0
          alors index 1

     index 2

     retour