set talk off
sele 1
use 数据库
sele 2
use d:\rs5\高职高专
go top
do while .not. eof()
qq0=str(recno(),3)
qq1=str(300+序号,3)
qq2=subs(姓名,1,8)
qq3=subs(工作单位,1,30)
sele 1
loca for 姓名=qq2 .and. 工作单位=qq3
if .not. eof()
repl 序号 with qq1,编号 with qq0
endif
sele 2
skip
enddo
close data
return
