EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "", "CONTRATTEST" TO F.CONTRATTEST ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 65 # "O" AND AVEC 63 = "200610"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin ="F"
READ ENRDEP FROM F.CONTRATTEST, W_Cle THEN
  IF ENRDEP<63> # "200610" THEN
	PRINT W_Cle:" pas clotur dans BASETEST."
  END ELSE
	READ ENR FROM F.CONTRAT, W_Cle THEN
		ENR<39> = ENRDEP<39>
		ENR<44> = ENRDEP<44>
		ENR<45> = ENRDEP<45>
		ENR<46> = ENRDEP<46>
		ENR<83> = ENRDEP<83>
		WRITE ENR ON F.CONTRAT, W_Cle
	END
  END
END
REPEAT
STOP
