cRes1,cRes2,cRes3 sont des chaines
bTrouve est un Booléen = Faux
// on se positionne sur le premier enregistrement de la premier condition
hLitRecherchepremier(FIC,RUB1,Val1)
SI HTrouve(FIC) ALORS cRes1 = FIC.RUB1
// on parcours les enregistrement satisfaisant la condition
TANTQUE PAS HEnDehors(FIC) et cRes1 = FIC.RUB1 et PAS bTrouve
// on sort quand toute la condition est vérifiée
SI FIC.RUB2=Val2 ou FIC.RUB3=Val3 ALORS bTrouve = vrai
// Enregistrement suivant
hLitSuivant(FIC,RUB1)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4059&post_id=16855