********************************************************
* Suppression de la liaison avec MOTIFSORTIESID et 
* MOTIFSORTIE dans TABLES
*
* Dcembre 2004					Cyprien
********************************************************


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

READ ENR_TABLES FROM F.TABLES,"MOTIFSORTIE" ELSE
	ENR_TABLES ="" END


FOR i = 1 TO DCOUNT(ENR_TABLES<1>,CHAR(253))

	IF ENR_TABLES<1,i> = "MOTIFSORTIESID" THEN
		ENR_TABLES<1,i> = ""
		ENR_TABLES<1,i+3> = ""
	END
	IF ENR_TABLES<1,i> = "Codif SSIAD" THEN
		ENR_TABLES<1,i> = ""
	END
NEXT i

ENR_TABLES<4>=""

WRITE ENR_TABLES ON F.TABLES,"MOTIFSORTIE"

READ ENR_TABLES FROM F.TABLES,"DESCRIPLOGEMENT" ELSE
	ENR_TABLES ="" END


FOR i = 1 TO DCOUNT(ENR_TABLES<1>,CHAR(253))

	IF ENR_TABLES<1,i> = "DESCRIPLOGEMENTSID" THEN
		ENR_TABLES<1,i> = ""
		ENR_TABLES<1,i+3> = ""
	END
	IF ENR_TABLES<1,i> = "Codif SSIAD" THEN
		ENR_TABLES<1,i> = ""
	END
NEXT i

WRITE ENR_TABLES ON F.TABLES,"DESCRIPLOGEMENT"


STOP
