Filepro-list Digest, Vol 29, Issue 12

[Kenneth Brody]

Quoting Steve Bergman (Wed, 07 Jun 2006 13:03:13 -0500):
[...]
> I've looked over the table that seems to be taking fully 50% of the
> overall time.  The loops he is using are of the form:
>
> -------
>  If:                                                                   ?
> Then: lookup opo = ho.order  k=1    i=A -nx
> -------
> oloop | If: not opo
> Then: goto goon
> -------
> .
> .
> .
> -------
> If:
> Then: goto oloop
> -------
> goon | If:
> Then:
> -------
>
> That should exit the loop after all matching records have been
> processed, right?

No!  It won't exit until EOF has been reached.

After this line:

> oloop | If: not opo
> Then: goto goon

Add:

    If:  opo[field] ne 1
  Then:  goto goon

Where "field" is the field that in ho.order that is supposed to match
field one in the current file.

[...]

--
KenBrody at BestWeb dot net        spamtrap: <g8ymh8uf001 at sneakemail.com>
http://www.hvcomputer.com
http://www.fileProPlus.com