>LOCAL loRefDocsAddy >SET EXACT ON > >IF !USED('RefDocsAddy') THEN > USE RefDocsAddy IN 0 >ENDIF > >IF !USED('RefDocsWithAddress') THEN > USE RefDocsWithAddress IN 0 >ENDIF > >SELECT RefDocsAddy >SCAN > SCATTER NAME loRefDocsAddy MEMO > SELECT RefDocsWithAddress > Locate For RefDocsWithAddress.Number = loRefDocsAddy.Number > IF Found() THEN > Replace Speciality WITH loRefDocsAddy.Speciality, Location WITH loRefDocsAddy.City > ENDIF > SELECT RefDocsAddy >ENDSCAN >