OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
EXECUTE 'SELECT ELTSPARTEMP'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.ELTSPARTEMP,CLE ELSE GOTO 10
NOURSSAF=EXTRACT(ENR,2)
IF NOURSSAF#"" THEN
 NOURSSAF=NOURSSAF[4,30]
 ENR=REPLACE(ENR,2;NOURSSAF)
 WRITE ENR ON F.ELTSPARTEMP,CLE
END
GOTO 10
