Index problem

[John Esak]

Yes, that is exactly what I was trying to say, but you said it much better,
Boaz.

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 Boaz Bezborodko
> Sent: Tuesday, May 25, 2010 10:26 PM
> To: filepro-list at lists.celestial.com
> Subject: RE: Index problem
> 
>  78  -------   -   -   -   -   -   -   -   -   -   -   -   -  
>  -   -   -   -
>        ? If:
>        Then: lookup cst = cstrack  k=(t_num)    i=G -nL
>  79  -------   -   -   -   -   -   -   -   -   -   -   -   -  
>  -   -   -   -
>        ? If:         NOT cst or cst(1) le t_num -"1"
>        Then:         tracking_num=t_num;mast(23)=t_num+"1";write 
> 
> Line 79 won't work if the lookup doesn't find a record.  FilePro will 
> try to get a value for cst(1), but it won't have one if there is no 
> record leading to an error.
> 
> You need to have a 'not cst' on its own line and deal with that 
> situation first before letting FilePro work on a 'cst' field.  An 
> alternative is blank the resulting lookup record (-bl) and 
> compare the 
> 't_num' with cst(1) or with a nul ("") value that a failed 
> lookup will 
> return.
> 
> I've been bitten by this a few times so I'm aware of it when 
> I program.
> 
> > Date: Tue, 25 May 2010 14:29:18 -0400
> > From: "Richard Kreiss" <rkreiss at verizon.net>
> > Subject: RE: Index problem
> > To: <john at valar.com>,	<filepro-list at lists.celestial.com>
> > Message-ID: <00b501cafc38$307a25c0$916e7140$@net>
> > Content-Type: text/plain; charset=utf-8
> >
> > Top post:
> > Method 1: Menu command - /fp/rclerk cstrack -s1 -xa -d
> >
> > Method 2: from system call marketing input program @key command
> >      Then: sy="rclerk cstrack -s1 -xa -z enter -d -lx -rw 
> market"<"-rx"<patient_code<"-ry"<master_code
> > 	If:
> > 	Then: system sy
> >
> > As entering a tracking record from marketing requires no 
> update programming, this program is smaller and only allow 
> for the initial entry of a record.
> >
> > Here is the code which causes the error at line 78.  When 
> the index is rebuilt, everything works fine.
> >
> >        ? If:
> >        Then: lookup mast = l_master  r=rn   -np
> >  74  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:         NOT mast
> >        Then:         GOTO get_trk
> >  75  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:         mast(23) = "" or mast(23)="9999999"
> >        Then:         mast(23)="1000"
> >  76  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:
> >        Then:         t_num=mast(23);date_entered=@t4
> > 77  -------   -   -   -   -   -   -   -   -   -   -   -   - 
>   -   -   -   -
> > lok_trk? If: t_num = ""
> >        Then: t_num="9999999"
> >  78  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:
> >        Then: lookup cst = cstrack  k=(t_num)    i=G -nL
> >  79  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:         NOT cst or cst(1) le t_num -"1"
> >        Then:         
> tracking_num=t_num;mast(23)=t_num+"1";write mast;display;END
> >  80  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:
> >        Then:         t_num=t_num+"1"
> >  81  -------   -   -   -   -   -   -   -   -   -   -   -   
> -   -   -   -   -
> >        ? If:
> >        Then: GOTO lok_trk
> >
> > Hope this is helpful.
> >
> > Richard
> >   
> 
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>