Tom -
Slight correction to your block of code. The lines:
> IF vChooseVar IS NULL THEN
> RETURN
> ENDIF
should be:
IF vChooseVar = '[ESC]' THEN
RETURN
ENDIF
Sami
-----------------------------------------------------------
Sami Aaron
Software Management Specialists
19312 W 63rd Terr
Shawnee KS 66218
913-915-1971
http://www.softwaremgmt.com
----- Original Message -----
From: "Tom Grimshaw" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, April 29, 2002 3:35 PM
Subject: Re: CHOOSE syntax
> G'day Lucas,
>
> The CHOOSE always returns a text value.
> This is why it is important to reset the
> var or clear it prior to the CHOOSE if
> it is normally of a different data type.
>
> After the CHOOSE one sets a new var to
> the integer value of the text var or
> converts the TEXT var to INTEGER,
> depending on one's coding style or
> preference.
>
> SET VAR vChooseVar TEXT = NULL
> >CHOOSE varname +
> > FROM #VALUES +
> > FOR (expression),retcol +
> > FROM tblname +
> > WHERE clause +
> > AT scrnrow,scrncol +
> > TITLE 'title' +
> > CAPTION 'text' +
> > LINES n +
> > FORMATTED
> IF vChooseVar IS NULL THEN
> RETURN
> ENDIF
> SET VAR vResident INT = (INT(.vChooseVar))
>
> At 13:36 29/04/02 +1000, you wrote:
>
> >Please someone correct me here.
> >I'm assuming the syntax for CHOOSE is as follows:
> >
> >CHOOSE varname FROM #VALUES FOR (expression),retcol FROM tblname WHERE
> >clause AT scrnrow scrncol TITLE 'title' CAPTION 'text' LINES n FORMATTED
> >
> >Where retcol is the value returned to varname and can be an integer,
text,
> >whatever.
> >
> >If this is the case can anyone please explain to me why the following
code
> >returns a text value?
> >
> >CHOOSE vresident FROM #VALUES FOR ((LJS((CTXT(IDNO)),6)) & LASTNAME &
> >FIRSTNAME),IDNO +
> > FROM CLIENT WHERE LASTNAME LIKE .vsearch AND STATUS NOT IN ('OWL') +
> > AND COURID LIKE .vuser ORDER BY LASTNAME AT 8,25 TITLE 'Choose
> > Residents' +
> > CAPTION 'Resident' LINES 20 FORMATTED
> >
> >Where CLIENT.IDNO is a unique integer.
> >
> >After the CHOOSE, vresident = ((LJS((CTXT(IDNO)),6)) & LASTNAME &
FIRSTNAME)
> >In fact, if I declare vresident INTEGER = NULL then Rbase returns an
error.
> >????????????????
> >I'm using 6.5++ 1.851xRT03
> >
> >Thanks anyone.
> >Lucas Edwards
> >Information Systems
> >Wesley Mission Brisbane
>
> Warmest regards,
>
>
> Tom Grimshaw
> coy: Just For You Software
> tel: 612 9552 3311
> fax: 612 9566 2164
> mobile: 0414 675 903
>
> post: PO Box 470 Glebe NSW 2037 Australia
> street: 3/66 Wentworth Park Rd Glebe NSW 2037
>
> email: [EMAIL PROTECTED]
> web: www.just4usoftware.com.au
>
> the most needed product in the world can be found at
> www.thewaytohappiness.org
>
> This email and any files transmitted with it are confidential to the
> intended recipient and may be privileged. If you have received this email
> inadvertently or you are not the intended recipient, you may not
> disseminate, distribute, copy or in any way rely on it. Further, you
should
> notify the sender immediately and delete the email from your computer.
> Whilst we have taken precautions to alert us to the presence of computer
> viruses, we cannot guarantee that this email and any files transmitted
with
> it are free from such viruses.
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================
> TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>
>
>
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
