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

EXECUTE 'CREER-FICHIER PAYSINV 7,1'
OPEN "", "PAYSINV" TO F.PAYSINV ELSE 
	PRINT "erreur PAYSINV"
	STOP
END

EXECUTE 'SELECT PAYS'
ENR_PAYSINV = ""
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_PAYS FROM F.PAYS,W_Cle THEN
		ENR_PAYSINV<1> = W_Cle
		WRITE ENR_PAYSINV ON F.PAYSINV,ENR_PAYS<1>
	END
REPEAT

EXECUTE 'SELECT CIVILAIDANT AVEC 20 = ""'
EXECUTE 'SAUVE-LISTE W_AidantsSansCodes'
EXECUTE 'LISTE W_AidantsSansCodes' RETURNING MSGCODE
IF MSGCODE<1> # 209 THEN
	SELECT F.CIVILAIDANT TO W_AidantsSansCodes
	W_Fin = "F"
	LOOP
		READNEXT W_CleAidant FROM W_AidantsSansCodes ELSE W_Fin = "V"
	WHILE W_Fin = "F"
	   READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CleAidant THEN
		READ ENR_PAYSINV FROM F.PAYSINV,ENR_CIVILAIDANT<19> THEN
			ENR_CIVILAIDANT<20> = ENR_PAYSINV<1>
			WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,W_CleAidant
		END ELSE
			ENR_CIVILAIDANT<19> = "FRANCE"
			ENR_CIVILAIDANT<20> = "000000"
			WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,W_CleAidant
		END
	   END
	REPEAT
END
STOP
