Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!zaphod.mps.ohio-state.edu!caen!hellgate.utah.edu!dog.ee.lbl.gov!nosc!humu!pegasus!tleylan
From: tleylan@pegasus.com (Tom Leylan)
Newsgroups: comp.databases
Subject: Re: So does Clipper do it ?
Message-ID: <1991May20.203440.16660@pegasus.com>
Date: 20 May 91 20:34:40 GMT
References: <77135@eerie.acsu.Buffalo.EDU>
Organization: Pegasus,  Honolulu
Lines: 34

In article <77135@eerie.acsu.Buffalo.EDU> v442wwjl@ubvmsb.cc.buffalo.edu writes:
>
>1-	Is there anyway to get an index bar that shows the amount of database
>	indexed at a particular instance (w/o geting into memory resident 
>	programs). I tried using a function that replicates itself but it does
>	not work (i.e. INDEX ON function(field) to NTX ).
>
>2-	Before a READ, how can we find out the position of the cursor (i.e.
>	which GET field it is in).
>
Ed,  First thing I need to know is if you want it in S'87 or 5.0.  The index
progress indicator can be done in either but my favorite is 5.0.  I wrote
an article for Reference(Clipper) Dec '90 issue about Function Reusability
and Contracts which demonstrates three variations on a progress indicator.

Using code blocks I demonstrated a "records remaining" counter, a "percentage
done" character graphic bar and an "time remaining" indicator that reaccesses
the time after each record.  The killer with code blocks is the last part of
the demo combines all three indicators operating at the same time.

In either S'87 or 5.0 you will need a function to re-write the index header
however (I supplied it with the article) since the name of the function that
you index on will end up in the header which complicates ordinary usage.

I suppose I could place the code here as a message (other ClipperHeads may
be interested) what do you think ?

Not quite certain I understand question #2 "before a READ" ?  When you issue
the READ you'll be at the first GET in the current table.  I also need to know
whether it is S'87 or 5.0 for this one.  Check the manual on the GET system
or GETSYS.PRG on the diskettes for ideas.  Have you received your 5.01 update
yet ?

tom