Good Morning and Happy Weekend to all.

I am having trouble with this Choose Statement. I get an Insufficient Memory error at 
the end of the option list. The systax is lifted from R:Docs and it is drawing the 
columns out of a table with only about 1500 rows.

any direction would be appreciated. -- code is below

thank you 
Tom

LABEL start
CLEAR VAR vidnumtxt,vidnum,vlines,vrows,vcaption,vyesno,vendkey,iv%
SET VAR vidnumtxt TEXT = NULL
SET VAR vidnum INTEGER = NULL
SET VAR vlines INTEGER = 0
SET VAR vrows INTEGER = 0
SET VAR vcaption TEXT = 'Update Existing Contact(s)'
SET VAR vyesno TEXT = 'No'
SELECT COUNT(*) INTO vlines INDICATOR ivlines FROM mailingaddress
IF vlines = 0 THEN
  PAUSE 2 USING 'No Customer(s) on File!' CAPTION ' ' icon stop
  GOTO done
ENDIF
IF vlines > 20 THEN
  SET VAR vlines = 20
ENDIF
CLS
CHOOSE vidnumtxt FOR #VALUES +
FOR ((LJS(lastname, 20) & (LJS(firstname, 20) & (LJS(homeaddress1, 25))))),idnum +
FROM mailingaddress  ORDER BY lastname +
TITLE 'Select Donor and then press [Enter] to continue' +
CAPTION 'List of Contacts' +
LINES .vlines +
FORMATTED +
OPTION WINDOW_CAPTION SMALLINT +
|title_back_color WHITE +
|title_font_name times new roman +
|title_font_size 24 +
|title_font_color teal +
|title_bold OFF +
|title_italic OFF +
|title_underline OFF +
|title_strikeout OFF +
|list_back_color teal +
|list_font_name verdana +
|list_font_size 14 +
|list_font_color WHITE +
|list_bold OFF +
|list_italic OFF +
|list_underline OFF +
|list_strikeout OFF +
|window_back_color WHITE

Reply via email to