From 09b0f88c24ad1db84bc60dbc9f025e13fce7c327 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Thu, 30 Nov 1995 21:59:22 +0000
Subject: [PATCH] Forgot initial for CHOICE types

---
 src/cvtDctsdr/sdr2recordtype.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/cvtDctsdr/sdr2recordtype.c b/src/cvtDctsdr/sdr2recordtype.c
index 59cb34a94..fd6241c55 100644
--- a/src/cvtDctsdr/sdr2recordtype.c
+++ b/src/cvtDctsdr/sdr2recordtype.c
@@ -381,17 +381,29 @@ gen_rectype:
 	    break;
 	case DBF_GBLCHOICE: {
 		fprintf(fp,"\t\tmenu(%s)\n",pgblMenuNames[pfldDes->choice_set]);
+		if(pfldDes->initial.ushort_value)
+		    fprintf(fp,"\t\tinitial(\"%u\")\n",
+			pfldDes->initial.ushort_value);
 	    }
 	    break;
 	case DBF_CVTCHOICE: {
 		fprintf(fp,"\t\tmenu(menuConvert)\n");
+		if(pfldDes->initial.ushort_value)
+		    fprintf(fp,"\t\tinitial(\"%u\")\n",
+			pfldDes->initial.ushort_value);
 	    }
 	    break;
 	case DBF_RECCHOICE: {
 		fprintf(fp,"\t\tmenu(%s)\n",paprecChoiceNames[pfldDes->choice_set]);
+		if(pfldDes->initial.ushort_value)
+		    fprintf(fp,"\t\tinitial(\"%u\")\n",
+			pfldDes->initial.ushort_value);
 	    }
 	    break;
 	case DBF_DEVCHOICE: {
+		if(pfldDes->initial.ushort_value)
+		    fprintf(fp,"\t\tinitial(\"%u\")\n",
+			pfldDes->initial.ushort_value);
 	    }
 	    break;
 	case DBF_INLINK: {