From ee68f746c686f2c501292e8efd19c1aa00980b03 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Tue, 27 Aug 1996 15:48:31 +0000
Subject: [PATCH] Sometimes sdr2recordtype can't find field name

---
 src/cvtDctsdr/sdr2recordtype.c | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/src/cvtDctsdr/sdr2recordtype.c b/src/cvtDctsdr/sdr2recordtype.c
index 50ba8c351..40b67c269 100644
--- a/src/cvtDctsdr/sdr2recordtype.c
+++ b/src/cvtDctsdr/sdr2recordtype.c
@@ -259,6 +259,7 @@ gen_rectype:
 	if(pfldDes->field_type==DBF_NOACCESS) {
 	    char	*prtn;
 	    char	fldname[5];
+	    char	*ptemp;
 
 	    strcpy(fldname,pfldDes->fldname);
 	    pstr = fldname;
@@ -277,8 +278,21 @@ gen_rectype:
 			    pfldDes->fldname,recordtypeInclude);
 		    break;
 		}
-		if(!(pstr = strstr(includeLine,fldname))) continue;
-		if(isalnum(*(pstr + strlen(fldname)))) continue;
+		ptemp = &includeLine[0];
+		while(TRUE) {
+		    if(!ptemp) break;
+		    if(!(pstr = strstr(ptemp,fldname))) {
+			ptemp = NULL;
+			break;
+		    }
+		    if(isalnum(*(pstr-1))
+		    || isalnum(*(pstr + strlen(fldname)))) {
+			ptemp = pstr + 1;
+			continue;
+		    }
+		    break;
+		}
+		if(!ptemp) continue;
 		break;
 	    }
 	    if(!prtn) continue;