It seems that a search of the archives within the last month should come up with a lot more (and better) answers than mine. I would put the menu data set into a temporary table to reduce the size of the data returned. Put only the menu related data in the table. Create a table with only the idnum and a 68 character column to hold the menu items. Insert the two data columns, and choose from the temp table.
--- " [EMAIL PROTECTED] " <[EMAIL PROTECTED]> wrote: > 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 > > ===== Albert Berry Management Consultant RR2 - 1252 Ponderosa Drive Sparwood BC, V0B 2G2 Canada (250) 425-5806 (250) 425-7259 (708) 575-3952 (fax) [EMAIL PROTECTED]
