create table testrslt (nstart n(15,2), nend n(15,2), nseconds n(15,2)) for j = 1 to 10 create table testspd (cfield1 c(25), cfield2 c(10), cfield3 c(10), cfield4 c(5)) for i = 1 to 10000 insert into testspd (cfield1) values ('THISISATESTOFTHEEMERGENCY') next i select testspd go top lnstart = seconds() scan replace cfield2 with substr(cfield1,1,10) replace cfield3 with substr(cfield1,11,10) replace cfield4 with substr(cfield1,21,5) endscan lnend = seconds() insert into testrslt (nstart, nend, nseconds) values (lnstart, lnend, lnend-lnstart) next j for j = 1 to 10 create table testspd (cfield1 c(25), cfield2 c(10), cfield3 c(10), cfield4 c(5)) for i = 1 to 10000 insert into testspd (cfield1) values ('THISISATESTOFTHEEMERGENCY') next i select testspd go top lnstart = seconds() scan replace cfield2 with substr(cfield1,1,10), cfield3 with substr(cfield1,11,10), cfield4 with substr(cfield1,21,5) endscan lnend = seconds() insert into testrslt (nstart, nend, nseconds) values (lnstart, lnend, lnend-lnstart) next j