Hello,

How to use Scan .. endscan to replace in the following codes which are
worked fine ?

Select State
Go Top
Select ccRegion
Do While !Eof("State")

	Locate For ccRegion.Reg_Code = State.Reg_Code
	If !Found()
		Append Blank
		Replace ccRegion.Reg_Code With Left(State.Reg_Code,3)
                =TableUpdate(.T., .T., "ccRegion")
	EndIf
	Skip 1 In State
EndDo

Tia