24 lines
717 B
Plaintext
Executable File
24 lines
717 B
Plaintext
Executable File
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
|