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

EXECUTE 'SSELECT CONTRAT AVEC 1 = "01" AND AVEC 2 = "001" AND AVEC 65 # "O" AND AVEC 7 < "12420" AND AVEC 8 >= "12420" OR = "" AND AVEC 25 = "4"'

W_FIN=0

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

	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""
	ENR_CONTRAT<5>="M"
	
	I=1
	LOOP
		UNTIL ENR_CONTRAT<15,I>="" DO
		IF ENR_CONTRAT<15,I>>="12420" THEN
			ENR_CONTRAT<68,I>="1"
			ENR_CONTRAT<69,I>="C"
		END
		I=I+1
	REPEAT

	WRITE ENR_CONTRAT ON F.CONTRAT,CLE

REPEAT
