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