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

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

ENR_TABLES<2,-1> = "PRO"
ENR_TABLES<3,-1> = "Contrat Professionnalisation"
ENR_TABLES<4,-1> = "N"

WRITE ENR_TABLES ON F.TABLES,"NATURECONTRAT"

STOP
