Contar Registros

Para contar a quantidade de registros usando query

DEF QUERY qry FOR customer FIELDS () SCROLLING.
OPEN QUERY qry PRESELECT EACH customer NO-LOCK.
DISPLAY NUM-RESULTS("qry").