EXECUTE "SET-DEC ,"
EXECUTE "UDT.OPTIONS 11 ON"
EXECUTE "DATE.FORMAT"
EXECUTE "SET-THOUS ."

OPEN "", "FICARETAILLER" TO F.FICARETAILLER ELSE STOP
OPEN "", "FUSION" TO F.FUSION ELSE STOP

READ ENR FROM F.FICARETAILLER, "MENSUEL" THEN
ENR_RAPPORT<-1> = "DEBUT TRAITEMENT  ":INT(TIME()/3600):"h":INT(MOD(TIME(),3600)/60)"R%2"

i2 = 0
LOOP
i2 = i2 + 1
WHILE ENR<i2> # ""
	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
		*PRINT "W_Stat<25>": W_Stat<25>

		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

END
WRITE ENR_RAPPORT ON F.FUSION, "Rapport resize"
STOP