Dear experts

create cursor table1 ;
	(code char(7), qty n(4))

insert into table1 values ('1401',0)
insert into table1 values ('1401007',0)
insert into table1 values ('1401010',0)
insert into table1 values ('1401025',0)
insert into table1 values ('1402',0)
insert into table1 values ('1402088',0)
insert into table1 values ('1402101',0)
insert into table1 values ('1402225',0)

select table1
locate for code=alltrim('1401')
replace qty with 1

Now first value in table is as
1401-1

On this point all qty field must replace with 1 until code like 1401
I want to use update, loop or scan throuhout table.

please help