Dan,
 
Try the PAUSE command with the following options:
 
PAUSE 4 USING .vMessage CAPTION .vCaption +
  OPTION METER_VISIBLE ON|METER_TYPE +
  Bar3D|METER_VALUE .vProgress
You'll also need a PAUSE 3 first to set it up before the PAUSE 4
 
Regards,
Alastair.
 
----- Original Message -----
From: Dan
Sent: Thursday, October 21, 2004 3:16 AM
Subject: [RBG7-L] - Displaying Running Counts

In Previous versions of rbase when using a declare cursor command to update rows I would set a variable to count down the progress of the update. To display it I would use the write command.  The only way I have found in the new version to display a running count is to use the pause 3 command.  

IE:

set var i=1

set var vrows=rows in audience

fetch cursor1 into vcomboid,vdaypartid

while sqlcode <> 100 and (lastkey(0))<>'[esc]' then

  set var vmess=('Updating Arbitron Dayparts'+(CHAR(013))+(CHAR(013)))

  set var vmess=(.vmess+'Row '+(ctxt(.i))+' of '+(ctxt(.vrows)))

  pause 3 using .vmess

  set var i=(.i+1)

  fetch cursor1 into vcomboid,vdaypartid

endwhile

closewindow

 

This works but I�m wondering if anyone knows of a better way to accomplish this.

 

Thanks Dan

 

 

Reply via email to