****************************************
* 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,"1" ELSE 
	ENR_TAMPONDADSU = "ECHEC LECTURE FICHIER"
	WRITE ENR_TAMPONDADSU ON F.DADSU,"1"
	STOP
END

* DETAIL DU FICHIER TAMPONDADSU
* ATT 1 : MV 1 => NOM DU FICHIER DADS-U
*         MV 2 => 1ERE LIGNE CONCERNANT L'AIDANT
*         MV 3 => DERNIERE LIGNE CONCERNANT L'AIDANT
* ATT 2 a X    => DONNEES CONCERNANT L'AIDANT



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

* COMMENCE PAR EFFACE DONNEES CORRESPONDANT A L'AIDANT
FOR I= ENR_TAMPONDADSU<1,2> TO ENR_TAMPONDADSU<1,3>
	ENR_DADSU = DELETE(ENR_DADSU,ENR_TAMPONDADSU<1,2>)
NEXT I



* ECRIT LES DONNEES DE L'AIDANT DANS LE FICHIER DADS-U

J = 2
I = ENR_TAMPONDADSU<1,2>
LOOP
	UNTIL ENR_TAMPONDADSU<J> = "" DO
	ENR_DADSU=INSERT(ENR_DADSU,I;ENR_TAMPONDADSU<J>)

	I = I + 1
	J = J + 1
REPEAT



*REMET A JOUR ATT S90.G01.00.001 QUI CONTIENT LE NB DE LIGNE
W_NBATT = DCOUNT(ENR_DADSU,CHAR(254))
ENR_DADSU<W_NBATT-1> = "S90.G01.00.001,'":W_NBATT:"'"
WRITE ENR_DADSU ON F.DADSU,ENR_TAMPONDADSU<1,1>

RETURN
