EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.ELTSPARTEMP,CLE ELSE GOTO 10
ENR=REPLACE(ENR,14;"")
ENR=REPLACE(ENR,15;"")
WRITE ENR ON F.ELTSPARTEMP,CLE
GOTO 10
