index problem

GCC Consulting gcc at optonline.net
Mon Nov 22 18:33:15 PST 2004


I have a program which has been running for over 2 years without a problem.
Last week the program kicked up an index error.

The program runs from @once in a file called inquire.  The user enters an order
# and the program checks file ls_850 to insure it is a valid order.  The index
is index b and the error says run index maintenance.

I have deleted the lockfile & the index from the command prompt and then rebuilt
the index. 

I even changed the method of lookup and used index A - order number and still
received the error.

I commented out lines 14 & 15, the lookup, and the report ran just fine.
 
If I enter these values in IUA and everything came up.

Anyone have any ideas why this is bombing out now?

By the way, there are over 300,000 records in this file.  More are added every
day as this is an EDI order file. I usually archive this file when it reaches
500,000 records.

Richard Kreiss
GCC Consulting 

--------------------------------------------------------------------------------

1 If:'****************************************************************
  Then:'* GCC Consulting 2002 Richard Kreiss *
2 If:'* Client: Leg Scene *
  Then:'* File : inquire *
3 If:'* Program: meijer_print *
  Then:'* sends meijer order to print file for e-mailing *
4 If:'* Created:01/20/02 *
  Then:'* Version: 01.00 *
5 If:'* Modified: *
  Then:'* *
6 If:'* *
  Then:'* *
7 If:'* *
  Then:'****************************************************************
8 If: 
  Then:END
9 at onceIf: 
  Then:CLS("1","5");declare order(12,*);r(8,.0,g)="1"
10do_recIf: 
  Then:lookup inq = inquire r=r -n
11 If:locked(inq)
  Then:r=r+"1";GOTO do_rec
12get_ordIf: 
  Then:input("18","15") order "Enter Meijer PO # -> "
13 If:order = ""
  Then:EXIT
14 If: 
  Then:lookup lso = ls_850 k=("MEIJER"&order) i=B -nx
15 If:NOT lso
  Then:BEEP;ERRORBOX "Meijer Order \r"<order<"\rNot on File\nCheck PO #";GOTO
get_ord
16 If: 
  Then:putenv "pforder",order
17 If: 
  Then:xz="-ia -u -p"<"c:\m"&order
18 If: 
  Then:xx="\fp\rreport ls_850 -f meir_ord -v sel_mprint -a"<xz
19 If: 
  Then:SHOWCTR("7") "PLEASE WAIT WHILE PRINT PROGRAM LOADS"
20 If: 
  Then:system xx
21 If: 
  Then:cls("1","20")
22 If: 
  Then:EXIT


--------------------------------------------------------------------------------
Displayed with Fairlight prc2html v01.02.09





More information about the Filepro-list mailing list