*********************************
* MISE A JOUR TABLES ABSENCES 	*
*			        *
* VANESSA	JUILLET 2005	*
*********************************

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

READ ENR_TABLES FROM F.TABLES,"ABSENCES" ELSE STOP

ENR_TABLES<3,17>="Repos compensateur"
ENR_TABLES<2,24>="24"
ENR_TABLES<3,24>="Formation"

WRITE ENR_TABLES ON F.TABLES,"ABSENCES"

STOP
