Click above to get retro games delivered to your door ever month!

 recno()             Return the current record number in current alias
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func long recno extern

 Arguments
   None.

 Return
   Current record number.

 Description
   The recno() function returns the current record number in the current
   alias. If the database is empty, the function returns 1.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_recno
   open sTest
   // print every 10 records to the screen to verify data
   do while .not. eof()
      if recno() % 10 == 0
         ? sTest->lastname
      endif
      skip
   enddo
   endproc

   proc main
   Test_recno()
   endproc