long epicsShareAPI dbFindField(DBENTRY *pdbentry,const char *pname)
{
dbRecordType *precordType = pdbentry->precordType;
dbRecordNode *precnode = pdbentry->precnode;
char *precord;
dbFldDes *pflddes;
short top, bottom, test;
char **papsortFldName;
short *sortFldInd;
int compare,ind;
char fieldName[MAX_FIELD_NAME_LENGTH];
char *pfieldName;
if(!precordType) return(S_dbLib_recordTypeNotFound);
if(!precnode) return(S_dbLib_recNotFound);
precord = precnode->precord;
papsortFldName = precordType->papsortFldName;
sortFldInd = precordType->sortFldInd;
/*copy field name. Stop at null or blank or tab*/
pfieldName = &fieldName[0];
for(ind=0; ind<MAX_FIELD_NAME_LENGTH; ind++) {
if(*pname=='\0' || *pname==' ' || *pname=='\t') break;
*pfieldName++ = *pname++;
}
*pfieldName = '\0'; /* This is beyond the end of the fieldName[] */
pfieldName = &fieldName[0];