Jim,
I would suggest to use two separate variables, i.e,
variable with TEXT data type for CHOOSE command and
then variable with INTEGER data type to convert the
retrieved value from CHOOSE.
Try the following example:
SET VAR vColsTXT TEXT = NULL
SET VAR vCols INTEGER = NULL
CLS
CHOOSE vColsTXT FROM #VALUES +
FOR Sys_Comment, Sys_Column_Id FROM Sys_Columns +
WHERE Sys_Table_Id = .vTblId AT 10 CENTER +
TITLE 'Press [Enter] or Click to select or [Esc] to exit.' +
CAPTION 'Select The Search Field' FORMATTED
IF vColTXT IS NULL OR vColTXT = '[Esc]' THEN
GOTO Done
ENDIF
SET VAR vCols = .vColsTXT
You may also want to check the validity of vTblID before
using the CHOOSE command.
Enjoy and make sure to have fun!
Very Best Regards,
Razzak.
At 01:47 PM 7/19/2001 -0400, J. Andrus wrote:
>Using Trace, the coding below results in the error - "Break in file
>EditOrd.rmd at line 116 for - ERROR- Invalid INTEGER value (2418)"..
>--Select a column to identify the order to edit
>CHOOSE vcols FROM #VALUES FOR sys_comment, sys_column_id FROM sys_columns +
>WHERE sys_table_id = .vtblid AT 10 CENTER TITLE 'Press [Enter] or Click to
>select or [Esc] to exit.' CAPTION 'Select The Search Field'
>SET VAR vcols INT = .vcols
===================================-============================
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.
==================================-=============================
