>>CLEAR ALL >> >>LOCAL lnSeconds, lnRecords, lnI >> >>CREATE CURSOR curTest (RecNum int, charfield C(30)) >> >>FOR lnI = 1 TO 300000 >> INSERT INTO curTest VALUES (m.lni, PADR(m.lnI,30,'0')) >>NEXT >> >>DELETE FOR RecNum >200000 >> >>SET DELETED ON >> >>SYS(1104) >>lnSeconds = SECONDS() >>SELECT COUNT(*) FROM curTest INTO ARRAY laTest >>lnRecords = laTest[1] >>RELEASE laTest >> >>?'Select COUNT(*): ', SECONDS()-m.lnSeconds >> >>SYS(1104) >>lnSeconds = SECONDS() >>LOCAL lnSelect >>lnSelect = SELECT() >>SELECT curTest >>COUNT TO lnRecords >>SELECT (m.lnSelect) >>RELEASE m.lnSelect >>?'Change Area and COUNT: ',SECONDS()-m.lnSeconds >> >>SYS(1104) >>lnSeconds = SECONDS() >>SELECT 1 FROM curTest TO SCREEN noconsole >>lnRecords = _tally >>?'Select to screen: ', SECONDS()-m.lnSeconds >>CLOSE all >>>