#ident "$URL: svn://elmer/devel/SVN/SDDAS/trunk/libdB/RecNo.c $ %D% SwRI"

#include "dbf.h"

/*****************************************************************************
 |  >FILE: RecNo.c                                                           |
 |                                                                           |
 |  DESCRIPTION                                                              |
 |                                                                           |
 |  ROUTINE                                                                  |
 |                                                                           |
 |  ARGUMENTS                                                                |
 |                                                                           |
 |  NECESSARY SUBPROGRAMS                                                    |
 |                                                                           |
 |  EXTERNAL VARIABLES                                                       |
 |                                                                           |
 |  INTERNAL VARIABLES                                                       |
 |                                                                           |
 |  SUBSYSTEM                                                                |
 |     Generic Database                                                      |
 |                                                                           |
 *****************************************************************************/

SDDAS_INT RecNo(SDDAS_INT dbf)
{
   dbfRecord_t *D;

   if ((D = GetOldDbfHandle(dbf)) == NULL) 
      return -1;
   return D->CurRec;
}