EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP

ENR_CIVILAIDANT=""

W_ReqAidant=""
EXECUTE 'SELECT CIVILAIDANT'
EXECUTE 'SAUVE-LISTE W_ReqAidant'
EXECUTE "LISTE W_ReqAidant" RETURNING MSGCODE

IF MSGCODE<1>#"209" THEN
	SELECT F.CIVILAIDANT TO W_ReqAidant
	W_Fini="Faux"
	LOOP
		READNEXT W_CLE FROM W_ReqAidant ELSE W_Fini = "Vrai"
	WHILE W_Fini = "Faux"
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_CLE THEN
			ENR_CIVILAIDANT<48>="1"
			
			WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT, W_CLE
		END
	REPEAT
END

EXECUTE "EFFACER-LISTE W_ReqAidant"

STOP

