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

ENR_CIVILAIDE=""
W_ReqAide=""

EXECUTE 'SELECT CIVILAIDE'
EXECUTE 'SAUVE-LISTE W_ReqAide'
EXECUTE 'LISTE W_ReqAide' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.CIVILAIDE TO W_ReqAide

	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_ReqAide ELSE W_Fin = "O"
	WHILE W_Fin = "F"
		READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle THEN
			ENR_CIVILAIDE<50>=""
		
			WRITE ENR_CIVILAIDE ON F.CIVILAIDE, W_Cle
		END
	REPEAT
END


STOP