My scan isn't scannin'...?

Howdy,

I am trying to write some code that is to compare records in
two tables. If it finds a particular record in one table but
does not find a slightly different record in the other
table, it is to do some stuff.

The tCursors open fine, but when I try to scan tCursor 2 it
seems not to increment.

I put in some view statements to try to sort things out, but
as I step through the code the same record number and phone
number keep displaying.

As I step through, I never get to DO STUFF. Instead, I am
returned to the line " ident = tc2."num" " without ident
having incremented.

The code could not be much simpler, but I can't spot the
problem:


scan tc2:
ident = tc2."num"
ident.view()
phone = tc2."info"
phone.view()

if (tc2.locate ("num", ident, "desc", "W") and
not (tc1.locate ("num", ident, "desc", "W1")))
then

;// DO STUFF

else
endIf
endScan


Many thanks for any help, as always,
--
Kenneth

If you email... Please remove the "SPAMLESS."

In this line:
if (tc2.locate ("num", ident, "desc", "W") ...
the locate() moves your tCursor within the scan. The next time the scan
loops, it will take over from this new position. And this new position is
always the same position, as locate() always sends the tCursor to the first
matching record. So your scan gets stuck on one record.

Never move either the scanning tCursor or any records within a scan loop.

The scan should be sending tc2 straight to the correct records, as with:
scan tc2 for tc2."num" = ident and tc2."desc" = "W":
;do something
endscan
or else testing withing the scan, as with:
scan tc2:
if tc2."num" = ident and tc2."desc" = "W"
then ;do something
else loop
endif
endscan

--
Jim Hargan

On Wed, 13 Aug 2008 12:20:00 -0400, Kenneth wrote:

> Howdy,
>
> I am trying to write some code that is to compare records in
> two tables. If it finds a particular record in one table but
> does not find a slightly different record in the other
> table, it is to do some stuff.
>
> The tCursors open fine, but when I try to scan tCursor 2 it
> seems not to increment.
>
> I put in some view statements to try to sort things out, but
> as I step through the code the same record number and phone
> number keep displaying.
>
> As I step through, I never get to DO STUFF. Instead, I am
> returned to the line " ident = tc2."num" " without ident
> having incremented.
>
> The code could not be much simpler, but I can't spot the
> problem:
>
>
> scan tc2:
> ident = tc2."num"
> ident.view()
> phone = tc2."info"
> phone.view()
>
> if (tc2.locate ("num", ident, "desc", "W") and
> not (tc1.locate ("num", ident, "desc", "W1")))
> then
>
> ;// DO STUFF
>
> else
> endIf
> endScan
>
>
> Many thanks for any help, as always,