OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
EXECUTE 'SELECT ELTSPARTEMP AVEC 16 = "200608"'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.ELTSPARTEMP,CLE ELSE GOTO 10
ENR=REPLACE(ENR,16;"200607")
WRITE ENR ON F.ELTSPARTEMP,CLE
GOTO 10
