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
MaRub3 est une Description de Rubrique
MaCléComposée est une Description de Rubrique
// Déclaration du fichier de données
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 rubrique 3
MaRub3.Nom = "Rub3"
MaRub3.Type = hRubHeure
MaRub3.Taille = 6 // Format HHMMSS
HDécritRubrique(MonFic1, MaRub3)
// 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