sele csrtable
go top
do while .not. eof()
	rch = csrkey
	sele employee
	go top
	locate for rch=ckey
	if found()
		lc = locfle
		sele csrtable
		replace locfle with lc
	enddo
	skip
enddo