The following code should give you some idea.....
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
CHOOSE vcholist FROM #VALUES FOR +
('Current') FROM dummy +
WHERE LIMIT = 1 +
UNION ALL SELECT ('Non Current') FROM dummy +
WHERE LIMIT = 1 +
UNION ALL SELECT ('Not for sale') FROM dummy +
WHERE LIMIT = 1 +
UNION ALL SELECT ('Unavailable') FROM dummy +
WHERE LIMIT = 1 +
UNION ALL SELECT ('XL') FROM dummy +
WHERE LIMIT = 1 +
UNION ALL SELECT ('Misc') FROM dummy +
WHERE LIMIT = 1 +
UNION ALL SELECT ('Exit') FROM dummy WHERE LIMIT = 1 +
AT CENTER CENTER CHKBOX CAPTION +
'Pick Item Status From List' LINES 7 +
FORMATTED
IF (LASTKEY(0)) = '[esc]' OR vcholist CONTAINS 'Exit' THEN
PAUSE 2 USING 'Exit In Selection... Exiting' AT 10 CENTER
GOTO ndproc
ENDIF
SET VAR vcnt = 1
SET VAR vwhich = (SSUB(.vcholist,.vcnt))
SET VAR vwhich = (SSUB(.vwhich,-1))
WHILE vwhich IS NOT NULL THEN
SWITCH (.vwhich)
CASE 'Current'
SET VAR vs1 = 1
BREAK
CASE 'Non'
SET VAR vs2 = 2
BREAK
CASE 'Not'
SET VAR vs3 = 3
BREAK
CASE 'Unavailable'
SET VAR vs4 = 4
BREAK
CASE 'XL'
SET VAR vs5 = 5
BREAK
CASE 'Misc'
SET VAR vs6 = 6
BREAK
DEFAULT
BREAK
ENDSW
SET VAR vcnt = (.vcnt + 1)
SET VAR vwhich = (SSUB(.vcholist,.vcnt))
SET VAR vwhich = (SSUB(.vwhich,-1))
ENDWHILE
++++++++++++++++++++++++++++++++++++++++++++++++++++
----- Original Message -----
From: "Ron Rose" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, June 15, 2001 12:32 PM
Subject: Re: Bypassing CHOOSE in CHOOSE command - Razzak's Reply
> How do you use this delimited string?
>
> Ron
>
> Steven Hoggan wrote:
>
> > Razzak,
> >
> > Thanks for the quick reply, but unfortunately it highlighted the fact
that
> > my original query was poorly constructed.
> >
> > What I would like to achive is the creation of a variable that contains
all
> > of the entries meeting the defined criteria using something like the
> > following command
> >
> > SET VAR va = #values for select employee_name from employees where
> > employee_name contains 'steve'
> >
> > This would give me a variable like the one below
> >
> > va = 'Steven Hoggan, Steve Robson, Mike Stevenson, Angela Stevens'
> >
> > Hope this makes it clearer and apologies for the poorly phrased question
> > first time around
> >
> > Steven
> >
> > > ----------
> > > From: A. Razzak Memon[SMTP:[EMAIL PROTECTED]]
> > > Reply To: [EMAIL PROTECTED]
> > > Sent: 15 June 2001 15:45
> > > To: [EMAIL PROTECTED]
> > > Subject: Re: Bypassing CHOOSE in CHOOSE command - Razzak's Reply
> > >
> > >
> > > Steven,
> > >
> > > Remember, NOTHING is impossible! Perfect timing though.
> > >
> > > Using The Glorious R:BASE 2000 (ver 6.5++) for Windows
> > > or The R:edoubtable R:BASE 2000 (ver 6.5++) for DOS,
> > > you can use the new #LIST option to achieve the goal!
> > >
> > > For more details with examples, please check out:
> > >
> > > http://www.RSyntax.com
> > >
> > > Under Syntax Reference, click on #LIST for detailed
> > > examples.
> > >
> > > Using those examples, you could also use the CHKBOX
> > > option to limit the maximum number of options.
> > >
> > > Enjoy and make sure to have fun!
> > >
> > > Very Best Regards,
> > >
> > > Razzak.
> > >
> > > At 03:13 PM 6/15/2001 +0100, Steven Hoggan wrote:
> > >
> > > >... Anyone know if something like the following is possible?
> > > >
> > > >SET VAR va = #VALUES FOR (column_name) FROM (table_name) +
> > > > WHERE ........................
> > > >
> > > >If Rbase can generate a CHOOSE list for me, and can then place the
lot
> > > into
> > > >a single variable should I press Shift and F6, then maybe a wee bit
of
> > > >tinkering with the command could generate the list automatically
using
> > > >something like the syntax above.
> > > >
> > > >I'd appreciate any feedback as to whether or not this would be a
> > > worthwhile
> > > >request, and also if anyone has a method they currently use to
achieve
> > > the
> > > >same end result. I know I can use a cursor-based loop to extract the
> > > values
> > > >and then concatenate them into the one, but I'd hope for this to be
> > > >achievable in a single command.
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > Confidentiality Notice
> > ----------------------
> >
> > This message and any attachments is confidential and may contain
privileged
> > information. It is intended only for the identified recipient. Anyone
else
> > must not copy, use, store or disseminate it. If you are not the
intended
> > recipient, please email it back to the sender and then delete it from
your
> > mail system. Thank You. Fitzpatricks.
> >
> > Tel: +44 (0)141 306 9000
> > Fax: +44 (0)141 306 9090
> > Web: www.fitzpatricks.co.uk
>
