Tracy,

The index "design" is bad. Try

SET EXACT OFF
SEEK transform(13609,'99999999')
SCAN WHILE transform(de_sysnum,'99999999')+transform(de_histnum,'9999') = transform(13609,'99999999');
       FOR de_sysnum == 13609 
   **** Do something
ENDSCAN

>field de_sysnum n(8,0)
>field de_histnum n(4,0)
>
>EXACT is on
>NEAR is off
>
>Example records:
>
>de_sysnum de_histnum
>13609 1
>13609 2
>13609 4
>13609 3
>14102 1
>1360 1
>1360 9
>
>active index is:
>
>transform(de_sysnum,'99999999')+transform(de_histnum,'9999')
>
>want to move to the first record with a de_sysnum of numeric 13609 and then want to scan while...endscan through only those records that have a de_sysnum of 13609 and ANY de_histnum.