*****************************************************************************************
*    Liste les attributs d'un fichier avec les libells requeteur :
* Permet de connaitre le lien directement entre ces libells et les attributs physiques *
* ***************************************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
PRINT 'Nom du fichier dont lister les descripteurs (MAJUSCULES) ?'
INPUT W_NomFic
OPEN "DICT",W_NomFic TO F.DICT THEN
OPEN "","FUSION" TO F.FUSION ELSE STOP
EXECUTE 'SELECT DICT ':W_NomFic:' AVEC TYP = "D" PAR LOC'
W_Fin = "F"
ENRRESULT = ""
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR FROM F.DICT, W_Cle THEN
     IF ENR<10> #"" THEN
	ENRRESULT<-1> = W_Cle:";":ENR<2>:";":ENR<10>:";":ENR<7>
     END
   END
REPEAT
WRITE ENRRESULT ON F.FUSION, "Dict":W_NomFic:".csv"
END
STOP
