Exemple : Création d'un fichier de données par programmation constitué de 3 rubriques dont une clé composée
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