EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","TRANCHE" TO F.TRANCHE ELSE STOP

EXECUTE 'SELECT HISTORCUMUL AVEC PeriodeHistCum = "2005" AND AVEC 15 = "073"'

W_FIN=0


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

	READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,CLE ELSE ENR_HISTORCUMUL=""
	
	
	W_APRENDRE=0
	I=1
	LOOP	
		UNTIL ENR_HISTORCUMUL<15,I>="" DO

		IF ENR_HISTORCUMUL<15,I>="073" THEN 
			IF ENR_HISTORCUMUL<17,I><>0 THEN
				W_APRENDRE=1
				EXIT
			END
		END

		I=I+1

	REPEAT


	IF W_APRENDRE=1 THEN
		PRINT CLE
	END

REPEAT


