* MAJ DES CONTRATS MANDATAIRES ACTIFS A COMPTER DU 1ER JUIN 2000 A NON GESTION DES CONGES PAYES
* AU MOIS

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture criture

   EXECUTE 'SELECT CONTRAT AVEC 1 = "':02:'" AND AVEC 8 >= "11841" OR = ""'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""

      ENR_CONTRAT<31>="0"
      ENR_CONTRAT<94>="1"

      WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle
   REPEAT

STOP
