OPEN "FUSION" TO F.FUSION ELSE STOP
OPEN "VOC" TO F.VOC ELSE STOP
READ ENR_FUSION FROM F.FUSION, "LISTEFICHIER.CSV" ELSE STOP
CONVERT ";" TO CHAR(253) IN ENR_FUSION

I = 0
LOOP
	I = I + 1
WHILE ENR_FUSION<I,1> # "" DO
	READ ENR_VOC FROM F.VOC, ENR_FUSION<I,1> THEN
			W_LIBELLE = TRIM(ENR_FUSION<I,2>)
			W_LIBELLE = UPCASE(W_LIBELLE)
			WRITEV W_LIBELLE ON F.VOC,ENR_FUSION<I,1>,4
	END
REPEAT
PRINT "TRAITEMENT TERMINE"

STOP