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

EXECUTE 'SELECT TABLES'

W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	
	READ ENR_TABLES FROM F.TABLES,W_Cle THEN

		BEGIN CASE

			CASE W_Cle = "ABSENCES"
				ENR_TABLES<1,1> = "Motifs d'absence"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "AGEAIDANT"
				ENR_TABLES<1,1> = "Tranches d'ge des aidants"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "25X"
				ENR_TABLES<1,6> = "3N0"
				ENR_TABLES<1,7> = "3N0"
				ENR_TABLES<1,8> = "Tranche"
				ENR_TABLES<1,9> = "De"
				ENR_TABLES<1,10> = " Ans" 
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "AGEAIDE"
				ENR_TABLES<1,1> = "Tranches d'ge des aids"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "25X"
				ENR_TABLES<1,6> = "3N0"
				ENR_TABLES<1,7> = "3N0"
				ENR_TABLES<1,8> = "Tranche"
				ENR_TABLES<1,9> = "De"
				ENR_TABLES<1,10> = " Ans" 
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "AIDETECHNIQUE"
				ENR_TABLES<1,1> = "Paramtres AIDES TECHNIQUES"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "35X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "ANCIENNETEAIDANT"
				ENR_TABLES<1,1> = "Tranches d'anciennet des aidants"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "25X"
				ENR_TABLES<1,6> = "3N0"
				ENR_TABLES<1,7> = "3N0"
				ENR_TABLES<1,8> = "Tranche"
				ENR_TABLES<1,9> = "De"
				ENR_TABLES<1,10> = " Ans" 
			
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "ANCIENNETEAIDE"
				ENR_TABLES<1,1> = "Tranches d'anciennet des aids"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "25X"
				IF ENR_TABLES<1,6> # "5N2" THEN
					i = DCOUNT(ENR_TABLES<2>,CHAR(253))
					LOOP
					WHILE i > 0 
						ENR_TABLES<3,i> = ENR_TABLES<3,i> * 100
						ENR_TABLES<4,i> = ENR_TABLES<4,i> * 100
						i = i - 1
					REPEAT

					ENR_TABLES<1,6> = "5N2"
					ENR_TABLES<1,7> = "5N2"
				END
				ENR_TABLES<1,8> = "Tranche"
				ENR_TABLES<1,9> = "De"
				ENR_TABLES<1,10> = " Ans" 
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "AUTRINTERVENANT"
				ENR_TABLES<1,1> = "Paramtres AUTRES INTERVENANTS"
				ENR_TABLES<1,2> = "1"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "35X"
				ENR_TABLES<1,7> = "2N0"
				ENR_TABLES<1,8> = ""
				ENR_TABLES<1,9> = ""
				ENR_TABLES<1,10> = "Codif SSIAD"
				ENR_TABLES<1,11> = ""
				ENR_TABLES<1,12,1> = "00"
				ENR_TABLES<1,12,2> = "01"
				ENR_TABLES<1,12,3> = "02"
				ENR_TABLES<1,12,4> = "03"
				ENR_TABLES<1,12,5> = "04"
				ENR_TABLES<1,12,6> = "05"
				ENR_TABLES<1,12,7> = "06"
				ENR_TABLES<1,12,8> = "07"
				ENR_TABLES<1,12,9> = "08"
				ENR_TABLES<1,12,10> = "09"
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "AUTRINTERVENANTSID"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "35X"
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "BORDEREAUTVA"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "100X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "CARTEORANGE"
				ENR_TABLES<1,1> = "Paramtres CARTE ORANGE"
				ENR_TABLES<1,10> = "Montant"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "6X"
				ENR_TABLES<1,7> = "5N2"
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "CATHANDICAP"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "DEFTECH"
				ENR_TABLES<1,1> = "Paramtres DEFINITION TECHNIQUE"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "DEPARTEMENTS"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "DESCRIPLOGEMENT"
				ENR_TABLES<1,1> = "Paramtres TYPE D'HABITAT"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "65X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "DIPLOMES"
				ENR_TABLES<1,1> = "Paramtres DIPLOMES"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = "1X"
				ENR_TABLES<1,10> = "Niveau"
				ENR_TABLES<1,8> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "EMPLOIS"
				ENR_TABLES<1,1> = "Paramtres EMPLOIS"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "ETATLOGEMENT"
				ENR_TABLES<1,1>= "Paramtres ETAT DU LOGEMENT"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "45X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "FINCONTACT"
				ENR_TABLES<1,1>= "Paramtres FINALISATION CONTACT"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = "1X"
				ENR_TABLES<1,8> = ""
				ENR_TABLES<1,10> = "Ralisation"
				ENR_TABLES<1,11> = ""
				ENR_TABLES<1,12,1> = "O"
				ENR_TABLES<1,12,2> = "N"
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "FINCONTRAT"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "70X"
				ENR_TABLES<1,7> = "2X"
				ENR_TABLES<1,8> = ""
				ENR_TABLES<1,9> = ""
				ENR_TABLES<1,10> = "Abbr."
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "FORMPRO"
				ENR_TABLES<1,1> = "Paramtres FORMATION"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "3N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "FREQEMISSIONBRC"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "1X"
				ENR_TABLES<1,6> = "15X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "IMPGENE"
				ENR_TABLES<1,1> = "Paramtres IMPRESSION"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "MOTIFACCORD"
				ENR_TABLES<1,1> = "Paramtres MOTIF DE L'ACCORD"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "MOTIFSORTIE"
				ENR_TABLES<1,1> = "Paramtres MOTIF DE SORTIE"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "MOYENSLOC"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "1N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "MUTUELLE"
				ENR_TABLES<1,1> = "Paramtres MUTUELLE M.F.P."
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "20X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "NATURECONTRAT"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "3X"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = "1X"
				ENR_TABLES<1,10> = ENR_TABLES<1,8>
				ENR_TABLES<1,8> = ""
				ENR_TABLES<1,9> = ""
				ENR_TABLES<1,11> = ""
				ENR_TABLES<1,12,1> = "O"
				ENR_TABLES<1,12,2> = "N"
				i = 0
				LOOP
					i = i + 1
				WHILE ENR_TABLES<3,i> # ""
					IF INDEX(ENR_TABLES<3,i>,"Contrat Emploi Solidarit",1) # 0 OR INDEX(ENR_TABLES<3,i>,"Contrat Emploi Consolid",1) # 0 OR INDEX(ENR_TABLES<3,i>,"Contrat Emploi Ville",1) # 0 THEN
						ENR_TABLES<4,i> = "N"
					END ELSE
						ENR_TABLES<4,i> = "O"
					END
				REPEAT
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "NATUREVOIE"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3>= ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "3X"
				ENR_TABLES<1,6> = "15X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "ORIGINECONTACT"
				ENR_TABLES<1,1> = "Paramtres ORIGINE CONTACT"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "PIECESRENOUV"
				ENR_TABLES<1,1> = "Paramtres PIECES A FOURNIR"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "60X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle
	
			CASE W_Cle = "PLACANT"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "5X"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "QUALIF"
				i = 0
				W_TablesTemp = ""
				LOOP
					i = i + 1
				WHILE ENR_TABLES<i> # ""
					W_TablesTemp<2,i> = ENR_TABLES<i>
				REPEAT
				ENR_TABLES = W_TablesTemp
				ENR_TABLES<1,1> = "Ajout de QUALIFICATION PROFESSIONNELLE"
				ENR_TABLES<1,2> = "1"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,5> = "70X"
				ENR_TABLES<1,6> = ""
				ENR_TABLES<1,7> = ""
				ENR_TABLES<1,8> = "Libell"
				WRITE ENR_TABLES ON F.TABLES, W_Cle


			CASE W_Cle = "QUALITEOCCUPANT"
				ENR_TABLES<1,1> = "Paramtres QUALITE DE L'OCCUPANT"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "REGIMAFFILIATION"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "4N0"
				ENR_TABLES<1,6> = "60X"
				ENR_TABLES<1,7> = "2N0"
				ENR_TABLES<1,10> = ENR_TABLES<1,8>
				ENR_TABLES<1,8> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "SECTANAL"
				ENR_TABLES<1,1> = "Ajout / modification de SECTION ANALYTIQUE"
				ENR_TABLES<1,3>=""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "3N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "SERVICES"
				ENR_TABLES<1,1> = "Ajout / modification de SERVICE"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "3N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "SITSAL"
				ENR_TABLES<1,1> = "Paramtres SITUATION"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "60X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "SITSOCIOPROF"
				ENR_TABLES<1,3> = "15"
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "STATORGCHG"
				ENR_TABLES<1,1> = "Paramtres REGROUPEMENT STATISTIQUE"	
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "50X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "TAUXTVA"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "1N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = "5N2"
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "TITRES"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "3X"
				ENR_TABLES<1,6> = "25X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "TITRESSEJOUR"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "60X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "TYPBASE"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "1X"
				ENR_TABLES<1,6> = "10X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "TYPEORGANISME"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle

			CASE W_Cle = "TYPETRANCHE"
				ENR_TABLES<1,2> = "0"
				ENR_TABLES<1,3> = ""
				ENR_TABLES<1,4> = ""
				ENR_TABLES<1,5> = "2N0"
				ENR_TABLES<1,6> = "30X"
				ENR_TABLES<1,7> = ""
				WRITE ENR_TABLES ON F.TABLES, W_Cle
			
			CASE W_Cle = "" OR W_Cle = "001" OR W_Cle = "1" OR W_Cle = "TEMP" OR W_Cle = "DEPARTEMENTS"
				DELETE F.TABLES, W_Cle

			CASE 1
				* Aucune des tables ci-dessus : on ne fait rien.
		END CASE

	END

REPEAT

READ ENR_TABLES FROM F.TABLES, "HEURESAIDANT" ELSE
	ENR_TABLES = ""
END
ENR_TABLES<1,1> = "Tranches d'heure aidant"
ENR_TABLES<1,2> = "1"
ENR_TABLES<1,3> = "15"
ENR_TABLES<1,4> = ""
ENR_TABLES<1,5> = "30X"
ENR_TABLES<1,6> = "6N2"
ENR_TABLES<1,7> = "6N2"
ENR_TABLES<1,8> = "Tranche"
ENR_TABLES<1,9> = "De"
ENR_TABLES<1,10> = "A Heures"
ENR_TABLES<1,11> = ""
ENR_TABLES<1,12> = ""
WRITE ENR_TABLES ON F.TABLES, "HEURESAIDANT"

READ ENR_TABLES FROM F.TABLES, "QUOTFAM" THEN
	DELETE F.TABLES, "QUOTFAM"
END ELSE
	READ ENR_TABLES FROM F.TABLES, "QUOTIENTFAMILIAL" ELSE
		ENR_TABLES = ""
	END
END
ENR_TABLES<1,1> = "Quotient familial"
ENR_TABLES<1,2> = "1"
ENR_TABLES<1,3> = "15"
ENR_TABLES<1,4> = ""
ENR_TABLES<1,5> = "25X"
ENR_TABLES<1,6> = "5N0"
ENR_TABLES<1,7> = "5N0"
ENR_TABLES<1,8> = "Tranche"
ENR_TABLES<1,9> = "de"
ENR_TABLES<1,10> = " euros"
ENR_TABLES<1,11> = ""
ENR_TABLES<1,12> = ""
WRITE ENR_TABLES ON F.TABLES, "QUOTIENTFAMILIAL"

READ ENR_TABLES FROM F.TABLES, "NBENF" THEN
	DELETE F.TABLES, "NBENF"
END ELSE
	READ ENR_TABLES FROM F.TABLES, "COMPOSITIONFAMILIALE" ELSE
		ENR_TABLES = ""
	END
END
ENR_TABLES<1,1> = "Composition familiale"
ENR_TABLES<1,2> = "1"
ENR_TABLES<1,3> = "15"
ENR_TABLES<1,4> = ""
ENR_TABLES<1,5> = "25X"
ENR_TABLES<1,6> = "2N0"
ENR_TABLES<1,7> = "2N0"
ENR_TABLES<1,8> = "Tranche"
ENR_TABLES<1,9> = "de"
ENR_TABLES<1,10> = " enfants"
ENR_TABLES<1,11> = ""
ENR_TABLES<1,12> = ""
WRITE ENR_TABLES ON F.TABLES, "COMPOSITIONFAMILIALE"

READ ENR_TABLES FROM F.TABLES, "RESSOURCES" ELSE
	ENR_TABLES = ""
END
ENR_TABLES<1,1> = "Ressources"
ENR_TABLES<1,2> = "1"
ENR_TABLES<1,3> = "15"
ENR_TABLES<1,4> = ""
ENR_TABLES<1,5> = "25X"
ENR_TABLES<1,6> = "5N0"
ENR_TABLES<1,7> = "5N0"
ENR_TABLES<1,8> = "Tranche"
ENR_TABLES<1,9> = "de"
ENR_TABLES<1,10> = " euros"
ENR_TABLES<1,11> = ""
ENR_TABLES<1,12> = ""
WRITE ENR_TABLES ON F.TABLES, "RESSOURCES"

READ ENR_TABLES FROM F.TABLES, "REGROUPACTIVITE" ELSE
	ENR_TABLES = ""
END
ENR_TABLES<1,1> = "Regroupement des activites"
ENR_TABLES<1,2> = "1"
ENR_TABLES<1,3> = ""
ENR_TABLES<1,4> = ""
ENR_TABLES<1,5> = "2N0"
ENR_TABLES<1,6> = "30X"
ENR_TABLES<1,7> = ""
ENR_TABLES<1,8> = ""
ENR_TABLES<1,9> = ""
ENR_TABLES<1,10> = ""
ENR_TABLES<1,11> = ""
ENR_TABLES<1,12> = ""
WRITE ENR_TABLES ON F.TABLES, "REGROUPACTIVITE"

STOP


