Selection set question

Don Coleman dcoleman at dgcreact.com
Wed Nov 14 07:24:13 PST 2007


I have a select table which builds a selection set in a file via an ascii
export and then runs system to generate a report using the exported
selection set.  My problem is one of the selection set's criteria is
facility code (field #9).  As this customer adds on new customers they have
begun to use facility codes which have the first several characters the same
(ex: IY, IYCC, IYCS, IYCJ).  The application is making a match on what it
can and is selecting more than the one I really want, in this case facility
code IY.  I don't have much control over the facility code, as it enters
filePro via import and socket connections from two alien applications.  The
relevant portion of the select table is below.  Is there a way to have the
selection set make only exact matches?

Nov 14, 2007  10:14           File Name: QS1                       Page   1
                             Processing: Selrecon

  23 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
noctl    If: 
       Then: RF="E:\QS1\TODO\FILEPRO\QS1\DOUBLE.SEL"{""
  24 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: export ascii use=(RF) f=\n
  25 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: use(1)="";use(2)=":9:eq:"{AB;use(3)=":150:eq:"{"Y"
  26 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: use(4)=":66:eq:"{@td
  27 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 9 eq "MTSP" and AC eq "A"
       Then: use(5)=":4:eq:LRL";goto montana
  28 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 9 eq "MTSP" and AC eq "D"
       Then: use(5)=":4:ne:LRL";goto montana
  29 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 9 eq "MTWP" and AC eq "A"
       Then: use(5)=":4:eq:LRL";goto montana
  30 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 9 eq "MTWP" and AC eq "D"
       Then: use(5)=":4:ne:LRL";goto montana
  31 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: use(5)=""
  32 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
montana  If: 
       Then: use(6)=":::";use(7)=":::";use(8)=":::";use(9)=":::"
  33 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then:
use(10)=":::";use(11)=":::";use(12)=":::";use(13)=":::";use(14)="  
             ";goto finsel
  34 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
finsel   If: 
       Then: write use;close use
  35 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: RE(70,*)="E:\FP_SETUP_FILES\FP5.0.13\FP\RREPORT QS1 -F DOUBLECK
-S 
             DOUBLE -U"
  36 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: system RE


Don Coleman
Donald G. Coleman, Consultant
402 Andrew Circle
Indiana, PA 15701
dcoleman at dgcreact.com
(724) 349-6302





More information about the Filepro-list mailing list