EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "", "ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 8 >= "13516" OR = "" AND AVEC 1 = "02" AND AVEC 29 # "" PAR 3'
W_Fin = "F"
W_SauveAide = ""
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
IF W_Fin # "V" THEN
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
	IF W_SauveAide # ENR_CONTRAT<3> AND W_SauveAide #"" THEN
		READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP, W_SauveAide THEN	
			
IF ENR_ELTSPARTEMP<15> = "" THEN
				PRINT W_SauveAide
			END
		END
	END
W_SauveAide = ENR_CONTRAT<3>
   END
END
WHILE W_Fin # "V"
REPEAT
STOP
