Re: Help with Test for a date and Monitor

On Jan 6, 2012, at 1:00 PM, rpg400-l-request@xxxxxxxxxxxx wrote:

I can't seem to get my monitor opcode to work. I defined the error code for an invalid date in the 'D' specs as BadDate.

I have the date field, *ISO standard. I put the user's entry into this field and I want to verify it is a valid date. I know I must be missing something, but the Monitor does not catch the error, instead I get a program error.

I cannot seem to locate a example, can someone please RTM me ?
Code snips:
D RtDate D DatFmt(*ISO)
D BadDate C 112


C Monitor
C Test (E) RtDate
C On-Error BadDate
C Eval SError = 'Invalid Date'
C GoTo ReDisplay
C EndMon

It is doing exactly what you told it to Cindy.

By coding the E extender you told it that you would handle the errors yourself. In this case you asked it to set the %Error flag in the event that a date failed the test. But you don't test %Error so when you later use the "bad" date - Boooom!

Monitor is to catch otherwise unhandled errors. You "handled" it.

Simply remove the (E) and it should work as you expect.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com