SET RBTI_INCLUDE ON (Default OFF)
SET VAR vValueList TEXT = NULL
SELECT ColumnName INTO vValueList INDIC IvValueList +
FROM TableName WHERE ... ORDER BY ...
SET RBTI_INCLUDE OFF
The variable vValueList will include the list of
delimited string values!
I guess, I'll have to change my presentation and
conference material <g>.
OR
This special version will be for Razzak's use ONLY.
Very Best Regards,
Razzak.
At 03:35 PM 9/1/2001 -0500, Dennis McGrath wrote:
>Razzak,
>
>SELECT ColumnName INTO vValueList INDIC IvValueList +
>FROM TableName WHERE ... ORDER BY ...
>
>I see a major problem with this change. Many developers I know us this
>syntax to retrieve one value from a table, ignoring the error message if
>there are more values because they just want the first. I've seen them use
>this technique over, and over, and over. I personally don't like this
>methodology, preferring to use LIMIT = 1 to prevent an error. But I have
>inherited millions of line of code with this old technique used. This
>change will break all their code. You really need another keyword in the
>select to tell it to retrieve a list, or have a SET LISTSELECT ON as an
>environmental setting with OFF as the default. My preference would be the
>extra keyword in the select command because it is more easily documented,
>and is self documenting in the code. This will prevent all those apps from
>breaking when the new version of RBASE is installed, while giving everyone
>the option to use this new feature when they want to.
>
>SELECT LIST ColumnName INTO vValueList INDIC IvValueList +
>FROM TableName WHERE ... ORDER BY ...
>
>-- Dennis McGrath
>mailto:[EMAIL PROTECTED]
>
>-- Productivity Tools for R:Base Programmers
>http://www.enteract.com/~mcgrath/dennis
>
>-- Full time consultant with:
>SQL Resources Group
>Steve Hartmann
>Oak Park, IL
>mailto:[EMAIL PROTECTED]
>
>
>-----Original Message-----
>From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
>Behalf Of A. Razzak Memon
>Sent: Friday, August 31, 2001 1:44 PM
>To: [EMAIL PROTECTED]
>Subject: Re: CHOOSE varlist FROM #LIST (was Re: Win 2K pro performance)
>
>
>
>At 01:58 PM 8/31/2001 -0700, Ron Rose wrote:
>
>>How does one get a valuelist (delimited string) from
>>a SELECT command.
>
>Ron,
>
>Very simple!
>
>Option 01:
>
>Using TGRB2000 version 6.5++, build:1.843 and higher:
>
>SET ERROR MESSAGE 2441 OFF
>SET VAR vValueList TEXT = NULL
>SELECT ColumnName INTO vValueList INDIC IvValueList +
>FROM TableName WHERE ... ORDER BY ...
>
>The variable vValueList will include the list of
>delimited string values!
>
>If you would like to see it, you just have to wait
>until October 20th, 2001 for that bag of tricks <g>.
>
>Option 02:
>
>CONNECT Concomp
>SET CAPTION ' '
>SET VAR vPickItem TEXT = NULL
>SET VAR vValueList TEXT = NULL
>SET VAR vLastName TEXT = NULL
>SET VAR vLines INTEGER = 0
>SET VAR vTitle TEXT = 'Select Employee Last Name'
>SET VAR vCaption TEXT = 'Using #LIST Option in CHOOSE Command!'
>CLS
>PAUSE 3 USING 'Building vValueList ...' CAPTION .vCaption AT 16 30
>SELECT COUNT(*) INTO vLines INDIC IvLines FROM Employee
>IF vLines > 18 THEN
> SET VAR vLines = 18
>ENDIF
>SET ERROR MESS 705 OFF
>DROP CURSOR c#1
>DECLARE c#1 CURSOR FOR SELECT Emplname FROM Employee +
>ORDER BY Emplname
>OPEN c#1
>FETCH c#1 INTO vLastName INDIC IvLastName
>WHILE SQLCODE <> 100 THEN
> SET VAR vValueList = +
> (IFNULL(.vValueList,(.vLastName),(.vValueList+','+.vLastName)))
> FETCH c#1 INTO vLastName INDIC IvLastName
>ENDWHILE
>DROP CURSOR c#1
>CLEAR VAR IvLines, IvValueList, vLastName, IvLastName
>
>CLS
>CHOOSE vPickItem FROM #LIST .vValueList AT 6 30 +
>TITLE .vTitle CAPTION .vCaption LINES .vLines FORMATTED
>IF vPickItem IS NULL OR vPickItem = '[Esc]' THEN
> GOTO Done
>ELSE
> CLEAR VAR vTitle, vCaption, vLines, IvLines
>ENDIF
>
>-- Do what you have to do here ...
>
>LABEL Done
>-- CLEAR ALL VAR
>-- or CLEAR ALL VAR EXCEPT ListOfVariables
>-- QUIT TO MainMenu.RMD
>
>There you have it.
>
>The variable vValueList will include the list of delimited
>string values!
>
>Notes:
>
>Option 02 has the advantage of collecting data from various
>tables DECLARing different CURSORS and then building a very
>complex vValueList!
>
>Option 02 is a sample code. You could achieve the simple
>list by using the CHOOSE ... #VALUES option also.
>
>Have Fun!
>
>Very Best Regards,
>
>Razzak.
===================================-============================
R:BASE Developers's Conference: http://www.rbase.com/conference
Official R:BASE List Server: mailto:[EMAIL PROTECTED]
RBTI Events/Training: http://www.rbase2000.com/events
R:DCC Members: http://www.rbase2000.com/rdcc
================================================================
R:BASE, Oterro & R:Tango are registered trademarks of RBTI.
==================================-=============================
