/* COUNT via PP rule — uses alias-qualified fields. */

PROCEDURE Main()
   LOCAL aStruct, n

   FErase( "people.dbf" )
   aStruct := { { "ID", "N", 4, 0 }, { "AGE", "N", 3, 0 } }
   dbCreate( "people.dbf", aStruct )
   USE people.dbf NEW EXCLUSIVE ALIAS p
   dbAppend() ; FieldPut(1, 1) ; FieldPut(2, 18)
   dbAppend() ; FieldPut(1, 2) ; FieldPut(2, 25)
   dbAppend() ; FieldPut(1, 3) ; FieldPut(2, 30)
   dbAppend() ; FieldPut(1, 4) ; FieldPut(2, 45)
   dbAppend() ; FieldPut(1, 5) ; FieldPut(2, 60)
   dbCommit()

   n := -1
   dbGoTop()
   COUNT TO n
   ? "1. COUNT TO n =", n, "(expect 5)"

   n := -1
   dbGoTop()
   COUNT TO n FOR p->age >= 30
   ? "2. COUNT TO n FOR p->age >= 30 =", n, "(expect 3)"

   n := -1
   dbGoTop()
   COUNT TO n FOR p->age < 25
   ? "3. COUNT TO n FOR p->age < 25 =", n, "(expect 1)"

   n := -1
   dbGoTop()
   COUNT TO n FOR p->age > 100
   ? "4. COUNT TO n FOR p->age > 100 =", n, "(expect 0)"

   dbCloseArea()
   FErase( "people.dbf" )
   ? "DONE"
   RETURN