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

##############################################################################
###+-------+##################################################################
#+-| EOF() |--------------------------------------------------------+#########
#| +-------+ Returns TRUE if record pointer is past the last record |#########
#+------------------------------------------------------------------+#########
##############################################################################
##############################################################################
#+--| Summary |------------------+############################################
#|     #INCLUDE database.hdr     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
#+--| Syntax |----------------------------+###################################
#|     FUNCTION LOGICAL eof PROTOTYPE     |###################################
#+----------------------------------------+###################################
##############################################################################
##############################################################################
##########+---| Description |-------------------------------------+###########
##########| The eof() function returns TRUE if the record pointer |###########
##########| has been positioned past the last logical record in   |###########
##########| the current alias.                                    |###########
##########| ----------------------------------------------------- |###########
##########| When programming with multiple databases, use a_eof() |###########
##########| for more clarity in programming.                      |###########
##########+-------------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Fix a part number in an inventory file.             |#########
#########|                                                          |#########
#########| DO WHILE .NOT. eof()                                     |#########
#########|     IF inv->pnum = 0                                     |#########
#########|         DO edit_part                                     |#########
#########|     ENDIF                                                |#########
#########|     SKIP                                                 |#########
#########| ENDDO                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Insert records into a pick list.  Pick lists can    |#########
#########| *    contain as many records as memory allows.           |#########
#########|                                                          |#########
#########| z = pick_init()                                          |#########
#########| DO WHILE .NOT. eof()                                     |#########
#########|     pick_add( z, q->part )                               |#########
#########|     SKIP                                                 |#########
#########| ENDDO                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################