Building a selection set on the fly

[Shane Gray]

> -----Original Message-----
> From: filepro-list-bounces at lists.celestial.com
> [mailto:filepro-list-bounces at lists.celestial.com]On Behalf Of Don
> Coleman
> Sent: Thursday, 24 February 2005 2:03
> To: filePro List
> Subject: Building a selection set on the fly
> 
> 
> List:
> 
> I use the code posted below to build a small 3 line selection set on the 
> fly.  Now, for one customer, my client needs me to add a fourth 
> selection criteria.  On the line
> if 9 eq "MTSP
> then goto montana
> *report errors out on the write use;close use located on line #30.  Can 
> anyone see what I am doing wrong on lines 27-28 that is causing this 
> problem?  The only difference is when filling in the use(5) field.  I 
> manually set up the selection set and opened it with a text editor and 
> it looks as I would expect it to look.  It passes the syntax check but 
> errors out at run-time with a memory error on multiple PC's.  If field 9 
> ne "MTSP" the program still functions fine.  fPv5.0.13 on Win98SE and XP 
> Pro clients, Win2000 Advanced Server.  The sample code below is from the 
> -v (select) process.
> 
> 
>   19 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> noctl    If:
>        Then: RF="E:\QS1\TODO\FILEPRO\QS1\DOUBLE.SEL"{""
>   20 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If:
>        Then: 'RF="C:\RXPRISON\FILEPRO\QS1\DOUBLE.SEL"{""
>   21 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: 9 eq "MTSP"
>        Then: goto montana
>   22 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If:
>        Then: export ascii use=(RF) f=\n
>   23 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If:
>        Then: use(1)="";use(2)=":9:eq:"{AB;use(3)=":150:eq:"{"Y"
>   24 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If:
>        Then: 
> use(4)=":66:eq:"{@td;use(5)="";use(6)=":::";use(7)=":::";use(8)="::
>              :";use(9)=":::"
>   25 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If:
>        Then: 
> use(10)=":::";use(11)=":::";use(12)=":::";use(13)=":::";use(14)=" 
>              ";goto finsel
>   26 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> montana  If:
>        Then: use(1)="";use(2)=":9:eq:"{AB;use(3)=":150:eq:"{"Y"
>   27 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: AC eq "A"
>        Then: 
> use(4)=":66:eq:"{@td;use(5)=":4:eq:"{"JBP";use(6)=":::";use(7)=":::
>              ";use(8)=":::";use(9)=":::"
>   28 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: AC eq "D"
>        Then: 
> use(4)=":66:eq:"{@td;use(5)=":4:ne:"{"JBP";use(6)=":::";use(7)=":::
>              ";use(8)=":::";use(9)=":::"
>   29 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If:
>        Then: 
> use(10)=":::";use(11)=":::";use(12)=":::";use(13)=":::";use(14)=" 
>              "
>   30 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> finsel   If:
>        Then: write use;close use
> 


Because you never execute the export command if 9 eq "MTSP" ?????