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

#include <stdio.h>   /* for sprintf */
#include <string.h>  /* for strcpy */

#include "dbf.h"

SDDAS_INT FieldNo(SDDAS_INT dbf, const char *fn)
{
   dbfRecord_t *D;
   FieldRecord_t *fld;
   SDDAS_INT i;
   char field[12];


   if ((D = GetOldDbfHandle(dbf)) == NULL)
      return FAILURE;

   strcpy(field, fn);
   to_upper(field);

   for (i=0; i < D->NumFields; i++)
   {
      fld = D->Fields + i;
      if (strcmp(fld->Name, field) == 0)
         return i;
   }

   sprintf(msg, "'%s' in '%s'", fn, D->FileName);
   dbf_code = FIELD_ERROR;
   return -1;
}