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

 EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC DatFinContrat >= "01/06/2000" OR = "" AND AVEC 94 # "1"'
 W_Fini="FAUX"

 LOOP
    READNEXT W_Cle ELSE W_Fini="VRAI"
 WHILE W_Fini="FAUX" DO
    READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE STOP
    ENR_CONTRAT<94>=1
    WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle
 REPEAT

STOP

