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 = ""
i = 0
LOOP
i = i + 1
WHILE ENR_TABLES<2,i> # "" AND ENR_TABLES<2,i> # "CA"
REPEAT
IF ENR_TABLES<2,i> = "" THEN
	ENR_TABLES<2,-1> = "CA"
	ENR_TABLES<3,-1> = "Contrat Avenir"
	ENR_TABLES<4,-1> = "O"
	WRITE ENR_TABLES ON F.TABLES,"NATURECONTRAT"
END
IF INDEX(ENR_TABLES<2>,"CAE", 1) = 0 THEN
	ENR_TABLES<2,-1> = "CAE"
	ENR_TABLES<3,-1> = "Contrat Accompagnement Emploi"
	ENR_TABLES<4,-1> = "O"
	WRITE ENR_TABLES ON F.TABLES,"NATURECONTRAT"
END


STOP
