I'm think I've posted this before. If it's not obvious what to change for
your own situation then please ask;
However, Pause_Sub.RMD is a pause COMMAND so replace with your own and any
un-pre-defined variables have been defined elsewhere so you may need to SET
them as well.
It should only take a few minutes to run.
Regards,
Alastair.
*( Filename: ErrMess.RMD ... ... Date of last amendment:
09/06/2010 )
*( Creates database/table containing the latest error messages from
Base )
-- This line extends to 78
characters - - - - - - - - - - - - - - - - - - - ->
-- TRACE D:\DBCOPY\SOURCE\MultiDat\ErrMess.RMD
DISCONNECT
CHDIR \DBFILES\Err_Mess
ERASE v9_Error.RB?
CREATE SCHEMA AUTHORIZATION v9_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
-- 09/06/2010: 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: "Stephen Markson" <[email protected]>
Sent: Monday, July 05, 2010 8:43 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - Error Messages
How can one get a list of error messages?
Regards,
Stephen Markson
416 512 6950
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.830 / Virus Database: 271.1.1/2983 - Release Date: 07/05/10
07:36:00
