
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;* en lecture criture

W_Cle=""
W_Cle<1>="AGEAIDE"
W_Cle<2>="ANCIENNETEAIDE"
W_Cle<3>="AGEAIDANT"
W_Cle<4>="ANCIENNETEAIDANT"
W_Cle<5>="HEURESAIDANT"

FOR i = 1 TO 5

	READ ENR_TABLES FROM F.TABLES,W_Cle<i> ELSE ENR_TABLES=""
     	ENR_TABLES<1,3>=""
	WRITE ENR_TABLES ON F.TABLES,W_Cle<i>

NEXT i

STOP
