>>>It may be not a very good code and could be possible broken. Write your own code using scan/endscan instead.
>>>
>>and the group is the names being Equal i get it an I used the orginal . an oh :( i have too do a scan ?:(
>
>Up to you - you can use my code or you can try writing your own code for a change.

OK uhum.
I wrote this in my book last night havent tried it in my program but i would think it looks like something.

Select zero
pnRec=-1
pcname=zero.fname

Scan
         IF pcname=zero.fname
                     pnRec=m.pnrec+1
           Else 
                pnRec=0
           Endif
         Replace ID field with pnRec
Endscan

but looking at it,im not seeing where pcname is being incremented unless the scan will do it