Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
/* this code fragment */
Declare Function Get.RecCount
Count = 0
filename = "CUSTOMERS"
Open filename To filevar Then
    count = Get.RecCount (filevar, flag, 0)
    If flag Else
      /* unable to invoke Get.RecCount() - handle error */
    End
End
Return Count