OPEN "", "UNIDATA" TO F.UNIDATA ELSE 
	EXECUTE 'CREER-FICHIER DIR UNIDATA'
	OPEN "", "VOC" TO F.VOC ELSE
		STOP
	END
	READ ENR_VOC FROM F.VOC, "UNIDATA" ELSE
		STOP
	END
	* Ci dessous : chane  remplacer selon chemin fichier BASES.txt
	ENR_VOC<2> = "C:\Unidata"
	WRITE ENR_VOC ON F.VOC, "UNIDATA"
	OPEN "", "UNIDATA" TO F.UNIDATA ELSE
		STOP
	END
END
OPEN "", "FICARETAILLER" TO F.FICARETAILLER THEN
	ENR_RAPPORT=""
	READ ENR FROM F.FICARETAILLER, "MENSUEL" THEN
		ENR_RAPPORT<-1> = "Debut Resize du ":OCONV(DATE(),"D4/")
		WRITE ENR_RAPPORT ON F.UNIDATA, "RapportBatchResize.txt"

		i2 = 0
		LOOP
		i2 = i2 + 1
		WHILE ENR<i2> # ""
			ENR_RAPPORT<-1> = "     Resize de ":ENR<i2>
			WRITE ENR_RAPPORT ON F.UNIDATA, "RapportBatch":MOD(DATE(),7):".txt"
			EXECUTE 'FICSTAT ':ENR<i2> CAPTURING W_Stat
			ENR_RAPPORT<-1> = ENR<i2>:" : "
			FOR t = 1 TO 25
				ENR_RAPPORT<-1> = t"R%3":" : ":W_Stat<t>
			NEXT t
			ENR_RAPPORT<-1> = " -*- "
			IF W_Stat<25> # "" THEN
				W_Long=LEN(W_Stat<25>)-27
				W_Modulo=W_Stat<25>
				W_Modulo=W_Modulo[27,W_Long]
				EXECUTE 'RESIZE ':ENR<i2>:' ':W_Modulo
				ENR_RAPPORT<-1> = "RESIZE effectu  -":W_Modulo:"-"
			END
		REPEAT
		ENR_RAPPORT<-1> = "Fin Resize du ":OCONV(DATE(),"D4/")
		WRITE ENR_RAPPORT ON F.UNIDATA, "RapportBatchResize.txt"
		
	END
END
STOP