|
Here is how I look them up at the
R>.
-- ShowErr.utl
SET V vint INTEGER=NULL
SET V vtext TEXT = NULL
DIALOG
'Error Number'
vtext=10 endkey 1
SET V vint = (INT(.vtext))
SHOW ERROR
vint
RETURN
Kenny Camp
----- Original Message -----
Sent: Wednesday, May 19, 2004 7:09
AM
Subject: [RBASE-L] - Re: Undocumented
error number 2227?
Never Mind.... I got it to work
Had to add a bit to
the code... a table must first be created to store the data, and the variable
must first be defined if you want the code to work for you.
SET ERROR MESSAGES
off
SET NULL -0-
OUTPUT
SCREEN
CREATE TABLE errmsgs +
(errnum
INTEGER ,
+
errmsg
TEXT (240) )
CLS
SET VAR vtxt2write TEXT
set var verrnum =
1
WRITE
'
'
WRITE '...... Creating Message
Table ... PLEASE WAIT'
WHILE verrnum < 3200
THEN
OUTPUT messages.$$$
SHOW ERROR verrnum
output
screen
LOAD errmsgs
FROM messages.$$$ AS
FORMATTED USING errmsg
1 240
UPDATE errmsgs
SET errnum = .verrnum WHERE COUNT = LAST
SET
VAR vtxt2write = 'Loaded error message ' +
CTXT(.verrnum)
+ ' OF 3200.'
WRITE .vtxt2write
SET VAR verrnum
= (.verrnum +
1)
ENDWHILE
OUTPUT
SCREEN
CLS
WRITE 'Finished .. Look at the errmsgs table for
results'
SET
NULL '
'
SET ERROR
MESSAGES ON
SET MESSAGES
ON
RETURN
At 07:30 AM 5/19/2004, you
wrote:
Jim,
I tried this code
and can't get it to work... for whatever reason I cannot seem to display an
error message with the 'show error ____' command.
If I
type Show error 639 I get the error
message "Variable not found (563)" displayed as an error rather than the
actual value of error message 639. What am I doing wrong?
Rbase
6.5++ windows
Dan
At 02:20 PM 5/18/2004, you wrote:
Kenny
Looks like you got
one that is undefined. I would get a hold of RBTI about it..
Here's
a code snippet to help in this area.. Albert Berry posted a good while
back.
I modified it a little.
Jim
SET ERROR MESSAGES
OFF
SET NULL -0-
OUTPUT SCREEN
CLS
SET VAR vtxt2write
TEXT
WRITE ' '
WRITE '...... Creating Message Table ... PLEASE
WAIT'
WHILE verrnum < 3200 THEN
OUTPUT
messages.$$$
SHOW ERROR verrnum
OUTPUT
SCREEN
LOAD errmsgs FROM messages.$$$ AS FORMATTED USING errmsg 1
240
UPDATE errmsgs SET errnum = .verrnum WHERE COUNT =
LAST
SET VAR vtxt2write = 'Loaded error message ' +
CTXT(.verrnum) + ' OF 3200.'
WRITE .vtxt2write
SET VAR
verrnum = (.verrnum + 1)
ENDWHILE
CLS
WRITE 'Finished .. Look at
the errmsgs table for results'
SET NULL ' '
SET ERROR MESSAGES
ON
SET MESSAGES ON
RETURN
Kenny Camp wrote:
I trapped an error number
2227 in some 6.5 for Windows code and when I try
to show the error
message associated with it, I get nothing.
I've been trying to
trap this error for months as it is a very
rare
occurrence.
Anybody know what this error is?
Kenny
Camp
IT Manager
Electro Enterprises
Oklahoma City,
OK
Dan Champion
www.championsolutions.net
616-299-7420
Dan Champion
www.championsolutions.net
616-299-7420
|
