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

READ ENR_TABLES FROM F.TABLES,"FINCONTRAT" ELSE ENR_TABLES = ""

ENR_TABLES<2,-1> = "41"
ENR_TABLES<3,-1> = "Rupture d'un CNE  l'initiative de l'employeur"
ENR_TABLES<4,-1> = "LA"

ENR_TABLES<2,-1> = "42"
ENR_TABLES<3,-1> = "Rupture d'un CNE  l'initiative du salari"
ENR_TABLES<4,-1> = "DM"

WRITE ENR_TABLES ON F.TABLES,"FINCONTRAT"

STOP
