EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE STOP
EXECUTE 'SELECT ABSENCESAIDANT AVEC 19 = "0" OR = "" AND AVEC 8 = "001" OR = "002" AND AVEC DebAbsAidant <= "13331"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR FROM F.ABSENCESAIDANT, W_Cle THEN
	ENR<19> = "1"
	WRITE ENR ON F.ABSENCESAIDANT, W_Cle			
   END
REPEAT
STOP
