ERROR Example

`F`	`File`
`ErrObj`	`Error`
`LogOnReset`	`Equ`	`5`
`Data`	`Dim`	`80`
`.`
	`Trap`	`MyIoErr If IO`
	`ErrObj.LogMessages Using "errobj.log", LogOnReset`
	`Open`	`F,"badfilename.q"`
	`Stop`
`.`
`MyIoErr`	`ErrObj.GetMessage Giving Data`
	`Display`	`Data`
`.`
	`ErrObj.AddError Using Code=21, SubCode=8:`
		`*Message="My user error"`
`.`
	`ErrObj.GetMessage Giving Data`
	`Display`	`Data`
`.`
	`Keyin`	`"All done: ", Data`
	`Stop`

This example of the ERROR object creates an error by attempting to open an non-existant file. In the error handling logic at MYIOERR, the error message is retrieved. A user-defined error is then added with a code, subcode, and message. That message is then retrieved and shown.