How do I force an error?

[JohnLennon]

Is there a way to force an ERROR()?

This may sound useless, however, what I'm doing is this.

GET(whatever)
IF ERROR() then
ERRORLOG.ERROR=ERROR()
OPEN(ERRORLOG)
ADD(ERRORLOG)
CLOSE(ERRORLOG)
END

But with clarion, when i open ERRORLOG, it'll clear the old error. When I return from this procedure, I want to have the original error message able to be checked for. Is this possible? Am I making no sense?

Jeremy
jnielson@ihccorp.com

 

[Gaudalier]

Are You using ABC or Legacy?

For now, I guess it's better change the IF ERROR()
as follows:

GET(whatever)
IF ERRORCODE()
ERRORLOG.ERROR=ERROR()
OPEN(ERRORLOG)
ADD(ERRORLOG)
CLOSE(ERRORLOG)
END

And If You're using ABC:

GET(whatever)
IF ERRORCODE()
IF Access:ERRORLOG.Insert() = Level:Benign
ERRORLOG.ERROR=ERROR()
Access:ERRORLOG.Update()
END
END

Any error that could get the app. will be save to ERRORLOG File. That's what you pretending or I'm misunderstanding you????

Hope this help!. -----
carabez@hotmail.com

 

[Gaudalier]

Sorry, I'd forgot something very important

IF ERRORCODE()
LOC:String = ERROR() !Save the error to a String.
IF Access:ERRORLOG.Insert() = Level:Benign
ERRORLOG.ERROR = LOC:String
Access:ERRORLOG.Update()
END
END

The initial ErrorCode are remplaced by the Insert Error code -if any-, so we need to save in a variable the original error!.

I guess it's the same for LEGACY

-----
carabez@hotmail.com