Hi Paul,

Select State
Go Top
SCAN
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
SELECT State && This isnt necesarily required but I tend to put it by habbit
ENDSCAN

Sergey's answer is probably more efficient though.

HTH

Jon