****************************************
* PROGRAMME DE MISE A JOUR DES DONNEES *
* DANS UN FICHIER DADS-U               *
*                                      *
* NOV 2005                    STEPHANE *
****************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DADS-U" TO F.DADSU ELSE STOP

* LECTURE FICHIER TEMPORAIRE
READ ENR_TAMPONDADSU FROM F.DADSU,"CODE" ELSE 
	ENR_TAMPONDADSU = "ECHEC LECTURE FICHIER"
	WRITE ENR_TAMPONDADSU ON F.DADSU,"CODE"
	STOP
END


* LECTURE FICHIER DADS-U
READ ENR_DADSU FROM F.DADSU,ENR_TAMPONDADSU<1,1> ELSE ENR_DADSU = ""


* STOCKE LES DONNEES AIDANT DANS LE FICHIER TAMPON
ENR_TAMPONDADSU_2 = ""
ENR_TAMPONDADSU_2<1> = ENR_TAMPONDADSU<1>
FOR I = ENR_TAMPONDADSU<1,2> TO ENR_TAMPONDADSU<1,3>
	ENR_TAMPONDADSU_2<-1> = ENR_DADSU<I>
NEXT I



WRITE ENR_TAMPONDADSU_2 ON F.DADSU,"HONO_":ENR_TAMPONDADSU<1,4>:"_":ENR_TAMPONDADSU<1,5>
DELETE F.DADSU,"CODE"

RETURN
