From 90759cb45c4ffa9de42ec715d310670b6a893d0b Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Thu, 25 Aug 2005 13:05:53 +0000
Subject: [PATCH] allow null value for field that does not exist

---
 src/db/dbTest.c | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/db/dbTest.c b/src/db/dbTest.c
index 536a06b0b..5059d08f6 100644
--- a/src/db/dbTest.c
+++ b/src/db/dbTest.c
@@ -149,11 +149,16 @@ long epicsShareAPI dbl(
 	    for(ifield=0; ifield<nfields; ifield++) {
 		char *pvalue;
 		status = dbFindField(pdbentry,papfields[ifield]);
-		if(status) continue;
-		pvalue = dbGetString(pdbentry);
-		if(pvalue) {
-		    fprintf(stdout,",\"%s\"",pvalue);
-		}
+		if(status) {
+                    if(strcmp(papfields[ifield],"recordType")==0) {
+                        pvalue = dbGetRecordTypeName(pdbentry);
+                    } else {
+                        continue;
+                    }
+                } else {
+		    pvalue = dbGetString(pdbentry);
+                }
+                fprintf(stdout,",\"%s\"",pvalue?pvalue:"");
 	    }
 	    fprintf(stdout,"\n");
             status = dbNextRecord(pdbentry);