***********************************
*
* 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

     IF ENR_ACCORD<1>="001" THEN

        IF ENR_ACCORD<11,1><"11749" THEN
  
          * INSERTION NOUVELLE PARTICIPATION
          * SI TAUX 14.00 ALORS 10.00
          IF ENR_ACCORD<13>="1400" THEN 
	     ENR_ACCORD=INSERT(ENR_ACCORD,13,1;"1000")
	     ENR_ACCORD=INSERT(ENR_ACCORD,11,1;"11749")
             WRITE ENR_ACCORD TO F.ACCORD,CLE
          END
          * SI TAUX 15.00 ALORS 14.00
          IF ENR_ACCORD<13>="1500" THEN 
	     ENR_ACCORD=INSERT(ENR_ACCORD,13,1;"1400")
	     ENR_ACCORD=INSERT(ENR_ACCORD,11,1;"11749")
             WRITE ENR_ACCORD TO F.ACCORD,CLE
          END

	END

     END

     IF ENR_ACCORD<1>="031" THEN

        * INSERTION NOUVELLE PARTICIPATION
        * SI TAUX 14.00 ALORS 10.00
        IF ENR_ACCORD<13,1><>"1050" THEN 
	   ENR_ACCORD=INSERT(ENR_ACCORD,13,1;"1050")
	   ENR_ACCORD=INSERT(ENR_ACCORD,11,1;"10959")
           WRITE ENR_ACCORD TO F.ACCORD,CLE
        END

     END
REPEAT
