EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
   OPEN "", "TABLES" TO F.TABLES THEN
	READ ENR_TABLES FROM F.TABLES, "TELEGESTION" ELSE ENR_TABLES = ""
	ENR_TABLES<1> = "Paramtres JUSTIFICATIFS DE DECES12N050X"
	ENR_TABLES<2> = "0001020304"
	ENR_TABLES<3> = "Acte de dcsFaire-partPresseAppel tlphoniqueAucun"

	WRITE ENR_TABLES ON F.TABLES,"MOTIFDECES"

   END
STOP
