EXTERNE Fic_Temp
EXTERNE Rub1
EXTERNE Rub2
EXTERNE RubCompo

MonFic1 est une Description de Fichier
MaRub1 est une Description de Rubrique
MaRub2 est une Description de Rubrique
MaCléComposée est une Description de Rubrique

// Déclaration du fichier
MonFic1.Nom = "Fic_Temp"
MonFic1.Type = hFichierNormal

// Déclaration de la rubrique 1
MaRub1.Nom = "Rub1"
MaRub1.Type = hRubTexte
MaRub1.Taille = 20
HDécritRubrique(MonFic1, MaRub1)

// Déclaration de la rubrique 2
MaRub2.Nom = "Rub2"
MaRub2.Type = hRubTexte
MaRub2.Taille = 20
HDécritRubrique(MonFic1, MaRub2)

// Déclaration de la clé composée
MaCléComposée.Nom = "RubCompo"
MaCléComposée.FormuleClé = "Rub1+Rub2"
HDécritRubrique(MonFic1, MaCléComposée)

HDécritFichier(MonFic1)
HCréation(Fic_Temp)

Fic_Temp.Rub1 = "Montpellier"
Fic_Temp.Rub2 = "Paris"
HAjoute(Fic_Temp)

Fic_Temp.Rub1 = "Marseille"
Fic_Temp.Rub2 = "Lyon"
HAjoute(Fic_Temp)

HLitRecherche(Fic_Temp, RubCompo, HConstruitValClé(Fic_Temp, RubCompo, "Marseille", "Lyon"))
SI HTrouve() = Vrai ALORS
	Trace(Fic_Temp.Rub1, Fic_Temp.Rub2)
FIN