Winn,
here is a simple rtn we use before and after any SQL that will take more than a few seconds. It brings up the native progress bar, is simple and fast.
=jsqlbar('ON')
Select...
=jsqlbar('OFF')
--------------------------------------------------------------------------
PROCEDURE jsqlbar
*
parameter monoff
private monoff
*
* creates / removes a small temp window off the screen and sends talk
* to it. turning talk on at that point causes the SQL status bar
* to appear on the screen but you don't get the nnnn records retrieved
* in xx seconds message.
*
if .not. (type('monoff') = 'C' .and. monoff $ 'ON,OFF')
wait window 'ERROR $JSQLBAR 10, Wrong / missing jsqlbar parameter.'
return
endif
*
if monoff = 'ON'
define window wtalktemp from -10,-10 to -9,-9
set talk window wtalktemp
set talk on
else
set talk off
release window wtalktemp
endif
*
RETURN
---------------------------------------------------------------------------
>Hi All,
> I need some ideas for something that the users can look at while a view is being requeried. Does anyone know of a visual that can be added while this occurs? I'd like to use a progress bar, but what do I count on? It is just for five or ten seconds, but the boss insists.
>TIA,
Beer is proof that God loves man, and wants him to be happy. - Benjamin Franklin
John J. Henn