EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","VOC" TO F.VOC ELSE STOP

EXECUTE 'COMO ON TestDisk.txt'

EXECUTE 'SELECT VOC AVEC F1 = "F"'
EXECUTE 'SAUVE-LISTE W_ListeVOC'
EXECUTE 'LISTE W_ListeVOC' RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	SELECT F.VOC TO W_ListeVOC
	
	W_FinVoc = "F"
	LOOP
		READNEXT W_NomFichier FROM W_ListeVOC ELSE W_FinVoc = "V"
	WHILE W_FinVoc = "F"

		GOSUB 100


	REPEAT




END

EXECUTE 'COMO OFF'
STOP

100

OPEN "",W_NomFichier TO F.FICHIER THEN
EXECUTE 'TSELECT ':W_NomFichier
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_FICHIER FROM F.FICHIER, W_Cle ELSE
		PRINT 'Erreur lecture : Fichier ':W_NomFichier:', cl ':W_Cle
	END
REPEAT
END ELSE
	PRINT 'Erreur ouverture fichier ':W_NomFichier
END
RETURN
