lookup problem

John Esak john at valar.com
Fri Aug 6 08:19:07 PDT 2010


 Yes, now that you mention it, I would be inclined to think the table itself
has a corruption of some strange kind.

Also, the different alias in rclerk a dclerk.  What is the value of 

PFLBSIZE

In your environment?  I would put this in the config file at a nice high
value, say 8192 and try it all again.

Please let us know if this changes the behavior at all.

You have seen before that I have said too low a value for PFLBSIZE causes a
whole host of seemingly unrelated errors.  It certainly possible that an
alias is part of what PFLBSIZE covers.

Also two other comments. Bruce's suggestion of compiling the table with the
right automatic table is importatn, or no, that was probably Bill; randall's
suggestion.

And secondly, you mentioned that you put a WRITE on the auto table lookup
just in case fielPro was locking the file. FilePro doesn't just do something
it's not supposed to do for no reason. If you have no -p on the lookup line,
it certainly won't just lock it anyway.  Regardless, of this pretty
importatn concept.... Putting a WRITE on the automatic table to "fix" it is
very, very bad idea.

Every other table you run will be WITING the file every time you run a
report ... Each record will be updated and WRITTEN out with a new timestamp,
etc. (@ub and so forth) plus what you see at the command line for date of
the key.  However, it is more the bad things this kind of random writing
does to the indexes that would be the worst reason for not putting a WRITE
on the auto table.   I would remove that immediately.

John





> -----Original Message-----
> From: Richard Kreiss [mailto:rkreiss at verizon.net] 
> Sent: Friday, August 06, 2010 10:50 AM
> To: john at valar.com
> Subject: RE: lookup problem
> 
> John,
> 
> It is possible I caused this problem by not editing down my responses.
> 
> In the end, I still would like to know why dclerk requires a 
> different alias
> to the sales journal file and rclerk doesn't.
> 
> I have done the same type of programming in many programs and 
> have not run
> into this situation before.  This is definitely an Ken 
> question, but not
> sure I will get an answer.  The work around works and I can 
> now move on with
> the programming.
> 
> One more odd thing, I was modifying previously implemented 
> programming which
> didn't have this problem.  I wonder now if the table might have some
> corruption causing the problem.
> 
> Richard
> 
> > -----Original Message-----
> > From: filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com
> [mailto:filepro-list-
> > bounces+rkreiss=verizon.net at lists.celestial.com] On Behalf 
> Of John Esak
> > Sent: Thursday, August 05, 2010 11:42 PM
> > To: filepro-list at lists.celestial.com
> > Subject: RE: lookup problem
> > 
> > This message is even more scattered than the first one... 
> Does anyone know
> > what is adding the "extra lines" everywhere?
> > 
> > There are nearly 600 lines in this thing! What ever happened to
> controlling
> > the length of emails. The quoting used by this forum is 
> very frustrating
> for
> > me. I know a lot of things are top posted for my benefit... But the
> majority
> > of inline comments make this place too difficult really. 
> Doesn't it bother
> > all of you on the whole? To have to peruse hundreds and 
> hundreds of lines
> > you've already read just to see if anything has been 
> *inserted* somewhere?
> I
> > belong to many other forums, many... Not one of them does 
> this. They are
> all
> > professional, thinking people, and they manage to communicate their
> > responses without interspersing them with the original. 
> Those who want to
> > refer to the original simply page down. 99% of the time 
> there is never a
> > need to do this. I can see where sometimes interspersion might be
> useful...
> > when needed, people notate that this is what they've done. 
> How hard is
> that?
> > Oh well, I know it won't change, I just have to bitch about 
> the dumbness
> of
> > it all once in awhile. :-)
> > 
> > John
> > 
> > 
> > 
> > > -----Original Message-----
> > > From: filepro-list-bounces+john=valar.com at lists.celestial.com
> > > [mailto:filepro-list-bounces+john=valar.com at lists.celestial.co
> > > m] On Behalf Of Richard Kreiss
> > > Sent: Thursday, August 05, 2010 2:54 PM
> > > To: 'Faisal Karim'
> > > Cc: filepro-list at lists.celestial.com
> > > Subject: RE: lookup problem
> > >
> > > From: Faisal Karim [mailto:faisalk at furniture-pro.com]
> > > Sent: Thursday, August 05, 2010 12:09 PM
> > > To: Richard Kreiss
> > > Subject: RE: lookup problem
> > >
> > >
> > >
> > > You may try changing the lookup name something like saljn =
> > > sales_journal
> > >
> > >
> > >
> > > Tried you suggestion and that worked.   Thanks..
> > >
> > >
> > >
> > > Now the real  question is why the same alias used for the
> > > browse lookup and the rn lookup,  need to be different in
> > > dclerk and not rclerk.  Is there something in the code which
> > > differs regarding the number of times the same handle can be
> > > used to open or read records from the same file?
> > >
> > >
> > >
> > > Richard
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > From: Richard Kreiss [mailto:rkreiss at verizon.net]
> > > Sent: Thursday, August 05, 2010 11:04 AM
> > > To: Faisal Karim
> > > Subject: RE: lookup problem
> > >
> > >
> > >
> > > The browse lookup works in both clerks but will put up a
> > > lookup failure message if a not line is there.
> > >
> > >
> > >
> > > The if @bk="s" is executed which set rn=sales_no and then
> > > does a lookup the sales journal file record based on the
> > > record #, this fails.  As there are over 32,000 records in my
> > > test file and 0ver 300,000 records at my client's site.
> > >
> > >
> > >
> > > Interesting thing, the record # is 32,575, the last record in
> > > the file.  Need to see if this happens with another set of values.
> > >
> > >
> > >
> > > Richard
> > >
> > >
> > >
> > > From: Faisal Karim [mailto:faisalk at furniture-pro.com]
> > > Sent: Thursday, August 05, 2010 11:33 AM
> > > To: Richard Kreiss
> > > Subject: RE: lookup problem
> > >
> > >
> > >
> > > That is good.   Have you tried -ng instead of -nx since you
> > > have key match option enabled?
> > >
> > >
> > >
> > > From: Richard Kreiss [mailto:rkreiss at verizon.net]
> > > Sent: Thursday, August 05, 2010 10:30 AM
> > > To: Faisal Karim
> > > Subject: RE: lookup problem
> > >
> > >
> > >
> > > In answer to your suggestion: [1003-10005] as it should be.
> > > No spaces.
> > >
> > >
> > >
> > > Richard
> > >
> > >
> > >
> > >
> > >
> > > From: Faisal Karim [mailto:faisalk at furniture-pro.com]
> > > Sent: Wednesday, August 04, 2010 6:50 PM
> > > To: Richard Kreiss
> > > Subject: RE: lookup problem
> > >
> > >
> > >
> > > Richard,
> > >
> > >
> > >
> > > Try this for your example:
> > >
> > >
> > >
> > > Instead of msgbox "Field 16 is \b5"<16<"\a-\nVersion #
> > > \b2"<@vr<"\a-"        ?
> > >
> > >
> > >
> > > Do this: msgbox "Field 16 is ["&16&"] \a-\nVersion # 
> \b2"<@vr<"\a-"
> > >
> > >
> > >
> > > What is the exact value of 16 then in []?
> > >
> > >
> > >
> > > Faisal
> > >
> > >
> > >
> > > Again off the list for reply.
> > >
> > >
> > >
> > > -----Original Message-----
> > > From:
> > > filepro-list-bounces+faisalk=furniture-pro.com at lists.celestial
> > > .com
> > > [mailto:filepro-list-bounces+faisalk=furniture-pro.com at lists.c
> > > elestial.com] On Behalf Of Richard Kreiss
> > > Sent: Wednesday, August 04, 2010 5:25 PM
> > > To: 'Kenneth Brody'
> > > Cc: filepro-list at lists.celestial.com
> > > Subject: RE: lookup problem
> > >
> > >
> > >
> > > -----Original Message-----
> > >
> > > From: Kenneth Brody [mailto:kenb at fptech.com]
> > >
> > > Sent: Wednesday, August 04, 2010 2:15 PM
> > >
> > > To: Richard Kreiss
> > >
> > > Cc: filepro-list at lists.celestial.com
> > >
> > > Subject: Re: lookup problem
> > >
> > >
> > >
> > > 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
> > >
> > >
> > >
> > > Still at Denver Airport - flight delays for planes coming East.
> > >
> > >
> > >
> > > Added the following:
> > >
> > > 445  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:
> > >                  ?
> > >
> > >        Then: msgbox "Field 16 is \b5"<16<"\a-\nVersion #
> > > \b2"<@vr<"\a-"        ?
> > >
> > >
> > >
> > > And
> > >
> > >
> > >
> > > do_lk_r? If:
> > >                  ?
> > >
> > >        Then: lookup sales = sales_journal  k=16   i=C -NXm
> > > b=(aa&ab&ac)        ?
> > >
> > > 450  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:         NOT sales
> > >                  ?
> > >
> > >        Then:         BEEP;ERRORBOX "No Sales Journal Record
> > > found for \r"<maste_code;CLEARB;END
> > >
> > >
> > >
> > > And
> > >
> > > 456  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:
> > >                  ?
> > >
> > >        Then: lookup sales = sales_journal  r=rn   -n
> > >                  ?
> > >
> > > 457  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:         NOT sales
> > >                  ?
> > >
> > >        Then:         ERRORBOX "Sales journal Record #
> > > \r"<rn<"\r Not Found";CLEARB;END
> > >
> > > 458  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:
> > >
> > >        Then: popup sales,"renew"
> > >
> > > 459  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:
> > >
> > >        Then: input popup("20","-1") y "is this the correct
> > > record?\n(Y)es or (N
> > >
> > > 460  -------   -   -   -   -   -   -   -   -   -   -   -   -
> > >  -   -   -   -
> > >
> > >        ? If:         y = "" or @sk = "BRKY"
> > >
> > >        Then:         pw = "";CLEARP;ENDResult of 445:
> > >
> > >
> > >
> > >
> > >
> > > ---------------------------------------
> > >
> > >     Wo+--------------------------+ Sale
> > >
> > >       | Field 16 is  1003-10005  |   ?
> > >
> > > ------| Version #  5.6.10R9      |-----
> > >
> > >       +---------- Press  Enter   + DO N
> > >
> > >                 ?                ?
> > >
> > >
> > >
> > > Result of 450
> > >
> > > ----------------------------------------------
> > >
> > > Sales Journal:   30190  Code : 1003-10005   Renewal: 01
> > > Status: C      |
> > >
> > >
> > >             |
> > >
> > >   Sales Date: 11/19/2005?      Start Date: 08/01/2011?     |
> > >                 |
> > >
> > >     Pay Type: CC?
> > >
> > >  Period Type: S?
> > >
> > >   Annual fee:  1,500.00?      |
> > >
> > >
> > > +------------------------------------------+|
> > >
> > >
> > >             |
> > >
> > > Credit Card: VM?   Reference #:                    ?
> > >             |-
> > >
> > >                    Exp Date:  7? 2011?         ?
> > >             |
> > >
> > >
> > >             |
> > >
> > >      +----------------------| Comment +-------------------+
> > >    Date     |-
> > >
> > >      |                                                    |
> > >          ?  |
> > >
> > > --------------------------------------------------------------
> > > ------------+
> > >
> > > ----------------------------------|
> > >
> > >                   ema+-----------------------------+
> > >              ?
> > >
> > > ---------------------| is this the correct record?
> > > |------------------------
> > >
> > >   Screen 1           | (Y)es or (N)o ->  ?
> > >                      |     Record:     6648
> > >
> > >                            +-----------------------------+
> > >
> > >
> > >
> > > The above was run using rclerk and the not sales and msgbox
> > > were just added.
> > >
> > >
> > >
> > >
> > >
> > > Dclerk:
> > >
> > >
> > >
> > > ---------------------------------
> > >
> > > Wo+--------------------------+ Sa
> > >
> > >   | Field 16 is  1003-10005  |
> > >
> > > --| Version #  5.6.10D9      |---
> > >
> > >   +---------- Press  Enter   + DO
> > >
> > >             ?                ?
> > >
> > > ---------------------------------
> > >
> > >
> > >
> > > ----+---------------------------------------------------------
> > > ------+--
> > >
> > >  Add| JOURNAL # START DATE  TYPE  PER    FEE       CC 
> TYPE    LAST 4|
> > >
> > >     
> +---------------------------------------------------------------|
> > >
> > >  Cit|   30190   08/01/2011    CC    S   $ 1,500.00   VM   
>     8304  |
> > >
> > >    -|   30189   08/01/2010    CC    S   $ 1,500.00   VM
> > > 8304  |--
> > >
> > >   Ho|       +-----------------------------------------------+
> > >       |rs
> > >
> > > (714|      | No Sales Journal Record found for  
> 1003-10005 |       |
> > >
> > > ----|   +------------------------------- Press  Enter   + 
>       |--
> > >
> > > Date|                                                     
>           |
> > >
> > > 03/0+-End of 
> File---------------------------------------------------+
> > >
> > > --------------------------------------------------------------
> > > ---------
> > >
> > >
> > >
> > > As shown, the program functions properly when using rclerk
> > > but not dclerk.
> > >
> > >
> > >
> > > It appears that the 2 sales journal records are found as the
> > > browse appears.  The  if: not sales at line 450 executes even
> > > though records were found.  It doesn't execute, line 450,
> > > when rclerk is used.
> > >
> > >
> > >
> > > Richard
> > >
> > >
> > >
> > >
> > >
> > > _______________________________________________
> > >
> > > Filepro-list mailing list
> > >
> > > Filepro-list at lists.celestial.com
> > >
> > > http://mailman.celestial.com/mailman/listinfo/filepro-list
> > >
> > >
> > >
> > > --
> > >
> > > This message has been scanned for viruses and
> > >
> > > dangerous content by MailScanner, and is
> > >
> > > believed to be clean.
> > >
> > >
> > >
> > >
> > > --
> > > This message has been scanned for viruses and
> > > dangerous content by  <http://www.mailscanner.info/>
> > > MailScanner, and is
> > > believed to be clean.
> > >
> > >
> > > --
> > > This message has been scanned for viruses and
> > > dangerous content by  <http://www.mailscanner.info/>
> > > MailScanner, and is
> > > believed to be clean.
> > >
> > > -------------- next part --------------
> > > An HTML attachment was scrubbed...
> > > URL:
> > > http://mailman.celestial.com/pipermail/filepro-list/attachment
> > > s/20100805/bb0a693e/attachment.html
> > > _______________________________________________
> > > Filepro-list mailing list
> > > Filepro-list at lists.celestial.com
> > > http://mailman.celestial.com/mailman/listinfo/filepro-list
> > >
> > 
> > _______________________________________________
> > Filepro-list mailing list
> > Filepro-list at lists.celestial.com
> > http://mailman.celestial.com/mailman/listinfo/filepro-list
> 



More information about the Filepro-list mailing list