Here is the program that I use. You will need to amend the RUN Pause_Sub.RMD
lines to produce your own message in your style or simply remove then and not
see any progess meter. Also, check that paths and directories suit your needs.
Regards,
Aastair.
*( Filename: ErrMess.RMD ... ... Date of last amendment: 01/12/2009 )
*( Creates database/table containing the latest error messages from R:Base )
-- This line extends to 78 characters - - - - - - - - - - - - - - - - - - - ->
-- TRACE D:\DBCOPY\SOURCE\MultiDat\ErrMess.RMD
DISCONNECT
CHDIR \DBFILES\Err_Mess
ERASE v7_Error.RB?
CREATE SCHEMA AUTHORIZATION v7_Error
CREATE TEMP TABLE TEMP_ErrMsgs +
(ErrNum INTEGER, ErrMsgTxt NOTE, ErrMsgFle VARCHAR (3000) )
SET VAR vCaption TEXT = 'R:Base Error Messages Database Creation'
SET CAPTION .vCaption
SET VAR vReplace TEXT = NULL
SET VAR vError INTEGER = NULL
SET ERROR VARIABLE vErrVar
SET NULL -0-
CLS
-- 01/12/2009: highest valid Error Number appears to be 3107.
-- Checked in v7.6! Tested up to: 99,999 in v7.1
SET VAR vRecCount INTEGER = NULL -- Total number of records
SET VAR vRecNumber INTEGER = NULL -- Record number in progress
SET VAR vProgress INTEGER = NULL -- Progress percentage
SET VAR vRecCount = 3200
SET VAR vRecNumber = 0
SET VAR vProgress = 0
SET VAR vCaption = 'Please wait...'
SET VAR vMessage = 'Processing Error Number: 0000'
RUN D:\DBCOPY\SOURCE\CommonCMDs\Pause_Sub.RMD USING 3 INFO .vProgress
SET ERROR MESSAGE 565 OFF -- Invalid error message number
SET ERROR MESSAGE 2059 OFF -- No rows exist
WHILE vRecNumber < .vRecCount THEN
SET VAR vRecNumber = (.vRecNumber + 1)
SET VAR vProgress = (INT( ((.vRecNumber/.vRecCount) * 100) ))
SET VAR vMessage = ('Processing Error Number:' & (CTXT(.vRecNumber)) )
RUN D:\DBCOPY\SOURCE\CommonCMDs\Pause_Sub.RMD USING 4 INFO 0 .vPos_Bottom_Left
.vProgress
OUTPUT Messages.$$$
SHOW ERROR vRecNumber
SET VAR vError = .vErrVar
OUTPUT SCREEN
IF vError = 0 THEN
LOAD TEMP_ErrMsgs FROM Messages.$$$ AS FORMATTED USING ErrMsgTxt 1 1500
UPDATE TEMP_ErrMsgs SET ErrMsgFle = ['Messages.$$$'] WHERE COUNT = LAST
UPDATE TEMP_ErrMsgs SET ErrNum = .vRecNumber WHERE ErrNum IS NULL
SET VAR vReplace = '(Unknown)'
SELECT ErrMsgTxt INTO vReplace FROM TEMP_ErrMsgs +
WHERE ErrNum = .vRecNumber AND ErrMsgTxt IS NOT NULL AND COUNT = 1
UPDATE TEMP_ErrMsgs SET ErrMsgTxt = .vReplace +
WHERE ErrNum = .vRecNumber AND ErrMsgTxt IS NULL
ELSE
INSERT INTO TEMP_ErrMsgs (ErrNum, ErrMsgTxt) +
VALUES (.vRecNumber, '(Invalid Number)' )
ENDIF
ENDWHILE
SET ERROR MESSAGE 565 ON
SET ERROR MESSAGE 2059 ON
PAUSE 4 USING ' ' OPTION METER_VISIBLE OFF
SET VAR vMessage TEXT = 'Configuring Data'
RUN D:\DBCOPY\SOURCE\CommonCMDs\Pause_Sub.RMD USING 3 INFO .vProgress
CREATE INDEX TempIndexErrNum ON TEMP_ErrMsgs (ErrNum ASC)
DELETE ROWS FROM TEMP_ErrMsgs WHERE ErrMsgFle IS NULL -- Removes most dups.
DELETE DUPLICATES FROM TEMP_ErrMsgs -- There shouldn't be any really.
ALTER TABLE TEMP_ErrMsgs ADD COLUMN MessType TEXT (8)
ALTER TABLE TEMP_ErrMsgs ALTER ErrMsgTxt TEXT (200) -- Check max length!
UPDATE TEMP_ErrMsgs SET MessType = 'Error' WHERE ErrMsgTxt CONTAINS '-ERROR-'
UPDATE TEMP_ErrMsgs SET MessType = 'Warning' WHERE ErrMsgTxt CONTAINS
'<WARNING>'
UPDATE TEMP_ErrMsgs SET MessType = 'Invalid' WHERE ErrMsgTxt CONTAINS '(Invalid
Number)'
UPDATE TEMP_ErrMsgs SET MessType = 'Message' WHERE ErrMsgTxt IS NOT NULL AND
MessType IS NULL
UPDATE TEMP_ErrMsgs SET MessType = 'Unknown' WHERE ErrMsgTxt = '(Unknown)'
-- Previous processing done in temp table for speed; now create real table:
PROJECT ErrMsgs FROM TEMP_ErrMsgs USING * +
ORDER BY MessType ASC, ErrMsgTxt ASC, ErrNum ASC
DROP TABLE TEMP_ErrMsgs
ERASE Messages.$$$
SET LAYOUT ON -- layout needs changing and saving.
CLS
BROWSE * FROM ErrMsgs
DISCONNECT
CHDIR \DBFILES\MultiDat
RETURN
*( End of program )
From: Angelo Cappetta
Sent: Tuesday, December 01, 2009 9:03 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Error Message Listing
I would appreciate any assistance in locating any reference data available
which lists the error numbers, associated message and further definition of
what is causing the error? I have looked but have had no success.
I'm trying to address a few issues and could use some help.
Regards,
Angelo
I
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.709 / Virus Database: 270.14.88/2538 - Release Date: 12/01/09
07:59:00
