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

EXECUTE 'SSELECT CONTRAT AVEC 65 <> "O" AND AVEC 70 # "0" AND # ""'

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<70>=ENR_CONTRAT<70>*100
		WRITE ENR_CONTRAT ON F.CONTRAT,CLE
	END

REPEAT

STOP
