allow null value for field that does not exist

2005-08-25 13:05:53 +00:00
parent dbf5cb50f2
commit 90759cb45c
1 changed files with 10 additions and 5 deletions
@@ -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);