
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
   OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP


   W_Str = 'SELECT CONTRAT AVEC 65 = "" AND AVEC 1 = "02"'
   W_Str=W_Str:' AND AVEC 7 <= "12815" AND AVEC 8 >= "12785" OR = ""'
   W_Str=W_Str:' AND AVEC 20 = "02002"'

   EXECUTE W_Str

   W_Fin = "F"

   LOOP
      READNEXT W_Cle ELSE W_Fin = "V"
   WHILE  W_Fin # "V"
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN

         j=DCOUNT(ENR_CONTRAT<15>,CHAR(253))
         LOOP
         WHILE ENR_CONTRAT<15,j> > "12815" DO
            j=j-1
         REPEAT

         IF ENR_CONTRAT<20,j> = "02002" THEN
            ENR_CONTRAT<20,j>="02003"
         END

	 WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

      END
   REPEAT

STOP
