Hilmar

:-(

Elation turns to deflation. I don't understand. Everything worked fine. I'd commented out the bad code and done the good, like I copied to you (see below). And it worked great. Then I went back and got rid of the old code and ran it again. It's now taking JUST AS LONG and is reporting EVERY record.

Can you see anything wrong with the code below?

Thanks

Terry

Select RZSTOP
Set Order To RGDSNum   && RTE_NO + RTE_LET + DIRECTN + STR(SEQNO,4) + STR(NUMBER,3)
Select * From RZStop ;
	where RZStop.SeqNo = 1 ;
	and	  EMPTY( RZStop.Time) ;
	into CURSOR csrSubjRZStop ;
	Order by Rte_No, Rte_Let, Directn, Number
lnNoRecs		= _TALLY

Select csrSubjRZStop 
lnInterval		= INT( lnNoRecs / 100)
If lnInterval < 1
	lnInterval	= 1
EndIf 
lnDone			= 0
Thisform.barProgressBar.Reset( lnNoRecs)
Thisform.barProgressBar.Visible = .T.

SCAN
  lcRteNo 	= PADR( RTE_NO, 6)
  lcDirectn	= DIRECTN
  lcSeqNo  	= STR( SEQNO, 4)
  lcNumber	= STR( NUMBER, 3)
  lcStopNo	= PADR( STOP, 8)
  lcCounty	= PADR( COUNTY, 2)

  Select DISTINCT TIME from	RZStop ;
    where 	PADR( RZStop.RTE_NO, 6)    = lcRteNo ;
 	  and   RZStop.RTE_LET		= "A" ;
 	  and 	RZStop.DIRECTN		= lcDirectn ;
 	  and	STR( RZStop.SeqNo, 4)	= lcSeqNo ;
	  and	STR( RZStop.Number, 3)	= lcNumber ; 
	  and	PADR( RZStop.Stop, 8)	= lcStopNo ;
	  and	PADR( RZStop.County, 2)	= lcCounty ;
 	  and	not EMPTY( RZStop.TIME) ;
    to SCREEN NOCONSOLE	
  If _TALLY = 0			&& no hits on this stop # - i.e. all Time values empty
       ...