USE frz!pgclient ORDER codecli ALIAS cl
GO top
nberr=0
DO WHILE NOT eof()
vcode = cl.codecli
SKIP
IF cl.codecli = vcode
? vcode
nberr=nberr+1
ENDIF
LOOP
ENDDO
?nberr
USE
CLOSE ALL