added CMS folder

CMS/BP.CNV/DEMOG.DICT.IDESC

@@ -0,0 +1,23 @@
+SUBROUTINE DEMOG.DICT.IDESC(DISPLAY,DEMOG)
+$INCLUDE BP.MASTER GEN.COM2
+OPEN "GEN.KEYS" TO GK ELSE ABORT 201,"GEN.KEYS"
+READ DEMOG.TABLE FROM GK,"PARAMS.CMSD.DEMOG" ELSE ABORT
+NUM.DEMOGS=DCOUNT(DEMOG.TABLE,AM)
+DISPLAY=""
+FOR DEMOG.VALUE=1 TO NUM.DEMOGS
+  DEMOG.DATA=DEMOG<1,DEMOG.VALUE>
+  TABLE.NAME=DEMOG.TABLE<DEMOG.VALUE,4>
+  PROMPT=DEMOG.TABLE<DEMOG.VALUE,1>
+  DISPLAY=DISPLAY:PROMPT'L#18':" ":DEMOG.DATA
+  IF TABLE.NAME # '' THEN
+    READ LOOKUP.TABLE FROM GK,TABLE.NAME ELSE ABORT
+    LOCATE(DEMOG.DATA,LOOKUP.TABLE,1;FND) THEN
+      DESC=LOOKUP.TABLE<2,FND>
+    END ELSE
+      DESC="UNKNOWN"
+    END
+    DISPLAY=DISPLAY:" ":DESC
+  END
+IF DEMOG.VALUE < NUM.DEMOGS THEN DISPLAY=DISPLAY:VM
+NEXT DEMOG.VALUE
+RETURN