You do
m.match2="X"

Are you wanting to
REPLACE match2 with "X"
as well?

>Hi all:
>
>I have a program here that looks for exact name and address --- comparing name1/name2 or name2/name1. If I find a match I tag the records . The problem I am having is I want to tag all that matches that where found by address and tag them differently, so I can report on them. Can anyone help...
>
>use tranFLMI in 0 alias trans
>use num3FLMI in 0 alias mastrfil
>
>
>select trans
>index on branch+zip+address2+name1+name2 tag mkey
>set order to mkey
>
>
>select mastrfil
>
>scan
>scatter memvar
>
>if mod(recno(),1000) = 0
> wait window nowait transform(recno()/reccount()*100,"999.999%")
>endif
>
> if seek(branch+zip+address2+name1+name2,"trans")
> if empty(trans.match)
> replace trans.match with "O"
> m.match="O"
> endif
> else
> wait window "ERROR IN FIRST MATCH"
> endif
>
> if seek(branch+zip+address2+name2+name1,"trans")
> if empty(trans.match)
> replace trans.match with "D"
>
>*************************************************************
>*************************************************************
>Problem area
>
>What I want to do is put a "X" in match2 for trans with the same address
>and record in match1 must equal "D"
>*************************************************************
> select trans
> index on branch+zip+address2 tag mkey2
> set order to mkey2
>
> SEEK(branch+zip+address2)
> DO WHILE .T.
> m.match2="X"
> SKIP 1
>
> ENDDO
> m.match2= " "
>
>
> index on branch+zip+address2+name1+name2 tag mkey
> set order to mkey
>
> select mastrfil
>
> ENDIF
>ENDIF
>
>
>gather memvar
>
>endscan
>
>*
>close all
>delete file mkey2.cdx
>delete file mkey.cdx
>set talk on
>
>
>Thanks