EXECUTE 'SELECT CONTRAT AVEC 1 = "01" AND AVEC 6 = "P" AND AVEC 4 = "I" AND AVEC 8 = "" OR > "11962"'
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CONTRAT,CLE ELSE GOTO 10
ENR=REPLACE(ENR,5;"M")
ENR=REPLACE(ENR,68;"1")
ENR=REPLACE(ENR,69;"C")
WRITE ENR ON F.CONTRAT,CLE
GOTO 10
