OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
EXECUTE 'SELECT ELTSPARTEMP AVEC 5 = ""'
10 READNEXT CLE ELSE STOP
READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,CLE ELSE GOTO 10
ENR_ELTSPARTEMP=REPLACE(ENR_ELTSPARTEMP,13;"02")
WRITE ENR_ELTSPARTEMP ON F.ELTSPARTEMP,CLE
GOTO 10
