the objective is to count number of (active) people
in each district / age_group
***********************************************************
CLOS ALL
CLEA ALL
CLEA
SET EXCL OFF
SET TALK OFF
SET ESCA ON
SET SAFE OFF
SET DELE ON
USE MasterFile
COPY STRU TO CountFile
SELECT 0
USE CountFile EXCL
INDEX ON DISTRICT + AGEGRP TAG DISTRICT
SELECT MasterFile
nCount = 0
SCAN
nCount = nCount + 1
@ 05,02 SAY nCount
*
IF INACTIVE <> 'Y'
cAgeGrp = AGEGRP
cDistrict = DISTRICT
*
* increment total
IF ! SEEK(cDistrict + cAgeGrp,"CountFile","District")
INSERT INTO CountFile (DISTRICT,AGEGRP) VALUES (cDistrict, cAgeGrp)
ENDIF
REPLACE TOTAL WITH TOTAL + 1 IN CountFile
ENDIF
ENDSCAN
***********************************************************
Have you tried to do a SELECT statement instead??? I would fathom a guess that it may be a little faster and less of a server hog than your current code.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement