EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 2 = "001" AND AVEC 65 #"O" AND AVEC 7 <= "14245" AND AVEC 8 >= "13881" OR = "" PAR 0'
W_Fin ="F"
W_Anc = ""
W_AncEt = ""
LOOP
READNEXT W_Cle ELSE W_Fin ="V"
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
		IF W_Cle[1,5] = W_Anc THEN
			IF W_AncEt # ENR_CONTRAT<3> THEN
				PRINT W_Cle
			END
		END
		W_Anc = W_Cle[1,5]
		W_AncEt = ENR_CONTRAT<3>
	END
REPEAT
STOP
