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

EXECUTE 'SSELECT CONTRAT AVEC 65 <> "O"'

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

	READ ENR_CONTRAT FROM F.CONTRAT,CLE THEN
	ENR_CONTRAT<39> = "0"
	WRITE ENR_CONTRAT ON F.CONTRAT,CLE

	END

REPEAT

STOP
