CLOSE DATABASES ALL
DO setx
LOCAL oChartPeriodObj,liRecord_count,liThermIncr, liMsg_counter,liCounter
oChartPeriodObj = CREATEOBJECT('ChartPeriodObj')
oChartPeriodObj.REQUERY()
liRecord_count = _TALLY
liCounter = 0
liMsg_counter = 10
liThermIncr = 90/liRecord_count
msgsvc("A Process is happening",liMsg_counter)
SCAN
liCounter = liCounter+1
lcMessage = "Processing record "+ STR(liCounter) + " from " + STR(liRecord_count)
liMsg_counter =liMsg_counter + liThermIncr
msgsvc(lcMessage,liMsg_counter)
ENDSCAN