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

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

 Syntax
   func long arecno extern
   param alias sDatabase

 Arguments
   sDatabase is the alias to retrieve information about.

 Return
   Current record number.

 Description
   The arecno() function returns the current record number for the specified
   alias sDatabase. If the database is empty, the function returns 1.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_arecno
   open sTest
   do while .not. aeof( sTest )
      if asc( sTest->lastname ) == 'M'
         ? arecno( sTest ), sTest->lastname // show names starting with M
      endif
      !sTest skip
   enddo
   endproc

   proc main
   Test_arecno()
   endproc