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