W_TABLES=""
I=0

W_TABLES<1>="AGEAIDANT"
W_TABLES<2>="AGEAIDE"
W_TABLES<3>="ANCIENNETEAIDE"
W_TABLES<4>="ANCIENNETEAIDANT"
W_TABLES<5>="HEURESAIDANT"
W_TABLES<6>="COMPOSITIONFAMILIALE"
W_TABLES<7>="QUOTIENTFAMILIAL"
W_TABLES<8>="RESSOURCES"

*Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TABLES" TO F.TABLES ELSE STOP

FOR I = 1 TO 8
	*Lecture d'une cle d'un fichier
	READ ENR_TABLES FROM F.TABLES,W_TABLES<I> ELSE STOP

	*Renseignement d'un attribut
	ENR_TABLES<1,2>= "2"

	*Ecriture d'un ernregistrement dans un fichier
	WRITE ENR_TABLES ON F.TABLES, W_TABLES<I> 
NEXT I


*mise  jour du fichier motifsortie

*Lecture du fichier "MOTIFSORTIE"
READ ENR_TABLES FROM F.TABLES,"MOTIFSORTIE" ELSE STOP

*Renseignement d'un attribut
ENR_TABLES<1,2>= "1"
ENR_TABLES<1,3>= ""

*Ecriture d'un ernregistrement dans un fichier
WRITE ENR_TABLES ON F.TABLES, "MOTIFSORTIE"
