EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 1 = "02"'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CONTRAT,CLE ELSE GOTO 10
ENR=REPLACE(ENR,28;"0")
ENR=REPLACE(ENR,31;"1")
ENR=REPLACE(ENR,94;"0")
WRITE ENR ON F.CONTRAT,CLE
GOTO 10
