EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","TABLES" TO F.TABLES ELSE STOP

READ ENR_TABLES FROM F.TABLES,"TYPEEXODADSU" THEN
	W_Nombre=DCOUNT(ENR_TABLES<2>,CHAR(253))

	FOR i=1 TO W_Nombre
		IF ENR_TABLES<2,i> = "09" OR ENR_TABLES<2,i> = "50"  OR ENR_TABLES<2,i> = "37" THEN
			ENR_TABLES=DELETE(ENR_TABLES,2,i)
			ENR_TABLES=DELETE(ENR_TABLES,3,i)
			i=i-1
			W_Nombre=W_Nombre-1
		END
	NEXT i
	WRITE ENR_TABLES ON F.TABLES,"TYPEEXODADSU"	
	
	
	bool1="0"
	bool2="0"
	bool3="0"
	bool4="0"
	
	FOR i=1 TO W_Nombre
		
		IF ENR_TABLES<2,i> > "16"  AND bool1="0" THEN
			ENR_TABLES=INSERT(ENR_TABLES,2,i;"16")
			ENR_TABLES=INSERT(ENR_TABLES,3,i;"CONTRAT D'ACCES A L'EMPLOI")
			bool1="1"
		END
		IF ENR_TABLES<2,i> > "34" AND bool2="0" THEN
			ENR_TABLES=INSERT(ENR_TABLES,2,i;"34")
			ENR_TABLES=INSERT(ENR_TABLES,3,i;"CONTRAT D'ACCOMPAGNEMENT DANS L'EMPLOI")
			bool2="1"
		END
		IF ENR_TABLES<2,i> > "37" AND bool3="0" THEN
			ENR_TABLES=INSERT(ENR_TABLES,2,i;"37")
			ENR_TABLES=INSERT(ENR_TABLES,3,i;"CONTRAT D'AVENIR")
			bool3="1"
		END
		IF ENR_TABLES<2,i> > "38" AND bool4="0" THEN
			ENR_TABLES=INSERT(ENR_TABLES,2,i;"38")
			ENR_TABLES=INSERT(ENR_TABLES,3,i;"CONTRAT DE PROFESSIONNALISATION")
			bool4="1"
		END
	NEXT i
	
	IF bool1="0" THEN 
		ENR_TABLES<2,-1> = "16"
		ENR_TABLES<3,-1> = "CONTRAT D'ACCES A L'EMPLOI"
	END
	IF bool2="0" THEN 
		ENR_TABLES<2,-1> = "34"
		ENR_TABLES<3,-1> = "CONTRAT D'ACCOMPAGNEMENT DANS L'EMPLOI"
	END
	IF bool3="0" THEN 
		ENR_TABLES<2,-1> = "37"
		ENR_TABLES<3,-1> = "CONTRAT D'AVENIR"
	END
	IF bool4="0" THEN 
		ENR_TABLES<2,-1> = "38"
		ENR_TABLES<3,-1> = "CONTRAT DE PROFESSIONNALISATION"
	END
	
	WRITE ENR_TABLES ON F.TABLES,"TYPEEXODADSU"
	
END

STOP