

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 58 > "200007" AND AVEC 8 > "11901"'

DEBUG

   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<58>=""

      WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle
   REPEAT

STOP
