Progress bar with DBFCDX indexes

[AndrewMozley]

I have a utility which reindexes a whole bunch of tables. When I used DBFNTX I used to display a progress bar

INDEX ON Accno+DTOS(DATE)+MyRef TO MyFile1.NTX EVAL ShowProg("MyFile") EVERY 20

ShowProg() would then do some sums and display a progress bar.

Now that I am using DBFCDX, I say :

INDEX ON Accno+DTOS(DATE)+MyRef TAG MyIdx1 TO MyFile EVAL ShowProg("MyFile") EVERY 20

This does not work, because I believe that the EVAL clause is not being executed. Has anyone tried this, and is there a work-around?

Thanks

 

[LyndonOHRC]

You didn't share the code for ShowProg(), could this be the cause?

4.5  DBFCDX Driver note
   
   EVAL and EVERY clauses of the INDEX ON command
   
   The EVAL clause functions differently in the DBFCDX driver than it
   does in other RDDs.  The EVAL block is evaluated at the beginning
   and at the end of each indexing process as well as at each record
   as in other RDDs.  At the beginning of the index process both
   BOF() and EOF() are true (.T.).  At the end of the indexing
   process only EOF() is true (.T.).

Ref:

http://www.sigaconsult.com.br/manuais/files/cdutil/clipper/DISK1/README

Lyndon

---People Remember about 10% of what you say ---They never forget how you made them feel. Covey

 

[bpulix]

......EVERY LASTREC()/20

brunello

 

[AndrewMozley]

Thank you both for your suggestions

In fact the fault was mine. The EVAL function was being called. It was just that the time spent opening and closing the indexes was large compared to the time processing the records (these were fairly small tables), so the progress bar always seemed to be at 0% or 100%.

Sorry for the false alarm. Andrew