General information
Category:
Coding, syntax & commands
Title:
Match program problem
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...
Thanks
close databases
set talk off
set default to getdir()
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 Section
************************************************************
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only