OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 3 = "001002"'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CONTRAT,CLE ELSE GOTO 10
ENR<3>="001001"
WRITE ENR ON F.CONTRAT,CLE
GOTO 10
