lookup problem

[Kenneth Brody]

On 8/3/2010 6:16 PM, Richard Kreiss wrote:
[...]
>> *** A filePro Error Has Occurred ***
>>
>> On File: C:\appl\ccp/filepro/transaction/index.A
>>
>> Input Processing
>>
>> Line Number: 450
>>
>>           rn=sales(@rn);GOTO lok_sjn
>> ^
>>
>>           @bk = "s"
>>           rn=sales(@rn);GOTO lok_sjn
[...]
> 445  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>         ◄ If:
>         Then: aa="(brw=10 xkey=xs show=keep pop=show fill=desc,top)"
> 446  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>         ◄ If:
>         Then: ab="[JOURNAL # START DATE  TYPE  PER    FEE       CC TYPE    LAST 4]"
> 447  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>         ◄ If:
>         Then: ac="*1        *6            *7    *8  $*9          *14      *32"
> 448  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> do_lk_r◄ If:
>         Then: lookup sales = sales_journal  k=16   i=C -NXm b=(aa&ab&ac)
> 449  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>         ◄ If:         @sk = "BRKY" or @bk = "X"
>         Then:         CLEARB;SHOW "";pw="";END
> 450  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>         ◄ If:         @bk = "s"
>         Then:         rn=sales(@rn);GOTO lok_sjn
> 451  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>         ◄ If:
>         Then: CLEARB;END

First, as others have pointed out, you have no "if not sales" after the lookup.

Since you say this is failing in dclerk, I would add:

do_lk_r
     then: debug on
     then: lookup sales = sales_journal ...
       if: not sales
     then: ... do something ...

When you hit the lookup statement, check the value of field 16, including 
any leading, trailing, and embedded spaces.  What is the exact value of 
field 16, including all spaces?

Step through the lookup.  Did it display the browse window, and wait for you 
to press "S"?

What does the debugger show as the value of "not sales"?

-- 
Kenneth Brody