HInfoRubrique

NomRubrique est une chaine="NOMCLI"

Resultat est une chaine=""

Affichage est une chaine=""

Affichage ="Decription de la rubrique "+NomRubrique+" du fichier "+NomFichier+rc

Resultat= HInfoRubrique (NomFichier,NomRubrique)

si extraitchaine(Resultat,2)="T" alors

Affichage += "Type général : texte" +rc

sinon

Affichage+= "Type général : numérique" +rc

fin

selon val(extraitchaine(Resultat,3))

CAS 2 : Affichage+= "Type HF : texte"+rc

CAS 3 : Affichage+= "Type HF : entier"+rc

CAS 4 : Affichage+= "Type HF : entier court"+rc

CAS 5 : Affichage+= "Type HF : entier long"+rc

CAS 6 : Affichage+= "Type HF : réel simple"+rc

CAS 7 : Affichage+= "Type HF : réel double"+rc

CAS 8 : Affichage+= "Type HF : numéro d'enregistrement"+rc

CAS 9 : Affichage+= "Type HF : entier non signé"+rc

CAS 10 :Affichaget=+ "Type HF : date sur 6"+rc

CAS 11 : Affichage+= "Type HF : heure"+rc

CAS 12 : Affichage+= "Type HF : octet"+rc

CAS 13 : Affichage+= "Type HF : type réel turbo"+rc

CAS 14 : Affichage+= "Type HF : type date sur 8"+rc

CAS 15 : Affichage+= "Type HF : type mémo texte"+rc

CAS 16 : Affichage+= "Type HF : type mémo texte long"+rc

CAS 17 : Affichage+= "Type HF : type monétaire"+rc

CAS 18 : Affichage+= "Type HF : type mémo binaire"+rc

CAS 19 : Affichage+= "Type HF : mémo Image, mémo Son, mémo OLE ou mémo binaire autre"+rc

fin

Affichage+= "Taille de la rubrique : "+extraitchaine(Resultat,4)+rc

si val(extraitchaine(Resultat,5))>1 alors

Affichage+= "Tableau à "+extraitchaine(Resultat,5)+" dimensions"+rc

fin

Affichage+="Libellé : "+extraitchaine(Resultat,6)

info(Affichage)