--vbutton value set by form ISSUES
SET VAR vbutton INTEGER

--set variable for dictionary lookup value
SET VAR vtdict TEXT
SET VAR vtdict = NULL
--set variable to hold CHOOSE values
SET VAR vtlist TEXT
SET VAR vtlist = NULL

SELECT dict INTO vtdict +
INDICATOR vtindicat FROM diyissues +
WHERE diyiid = .vbutton

CHOOSE vtlist FROM #VALUES FOR tdesc, nval +
FROM .vtdict +
ORDER BY tdesc AT CENTER CENTER  CHKBOX +
TITLE 'Select all that apply' +
CAPTION 'Press Enter to Finish'

RETURN
