EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
EXECUTE 'SELECT HISTORCUMUL = "[2009001"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR FROM F.HISTORCUMUL, W_Cle THEN
	i = 0
	W_Trouve = "F"
	LOOP
	i = i + 1
	WHILE ENR<15,i> # "" AND W_Trouve = "F" 
		IF ENR<15,i> = "053" THEN
			W_Trouve = "V"
			IF ENR<16,i> # ENR<17,i> THEN
			  PRINT W_Cle
			END
		END
	REPEAT
END
REPEAT
STOP
