***********************************
*
* MODIF ACCORD ASMAD
*
***********************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP

LOOP 
     READNEXT CLE ELSE
	  W_FINACCORD="VRAI"
     END
     UNTIL W_FINACCORD="VRAI" DO
     
     * LECTURE ACCORD
     READ ENR_ACCORD FROM F.ACCORD,CLE ELSE 
	PRINT "ERREUR ACCORD"
     END

     W_ATT14=0
     W_ATT17=0

     W_ATT14=DCOUNT(ENR_ACCORD<14>,CHAR(253))
     W_ATT17=DCOUNT(ENR_ACCORD<17>,CHAR(253))
   
     IF W_ATT14>W_ATT17 THEN
	 LOOP
	      UNTIL W_ATT17=W_ATT14 DO
				
		ENR_ACCORD<17,-1>="0"

	      W_ATT17=W_ATT17+1
	 REPEAT

	 WRITE ENR_ACCORD ON F.ACCORD,CLE
     END

REPEAT
