>******************************* >PROCEDURE GetViosInRange >******************************* >LPARAMETERS tcVioCat,tnLowMonths,tnHiMonths,tnLowBound,tnHiBound >LOCAL lnRetVal >SELECT * FROM WCDRVA ; >WHERE mvrcat = tcVioCat ; >AND BETWEEN(monthsago,tnLowMonths,tnHiMonths) ; >AND drvseq = this.drivernum; >INTO cursor thesevios >lnRetVal = 0 >IF tnlowbound > 0 > SKIP tnlowbound-1 > SCAN WHILE RECNO() <= tnhibound > lnretval = lnretval + 1 > ENDSCAN >endi >RETURN lnRetVal >