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

EXECUTE 'SELECT CIVILAIDE AVEC 12 = ""'


W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
UNTIL W_FIN=1 DO

	READ ENR_CIVILAIDE FROM F.CIVILAIDE, CLE THEN

		IF ENR_CIVILAIDE<12,1> = "" THEN
	
			ENR_CIVILAIDE<12,1> = "0"

		END
	END

	WRITE ENR_CIVILAIDE ON F.CIVILAIDE,CLE

REPEAT  

