× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



You shouldn't be using the (E) extender within a Monitor group. Essentially the On-Error isn't triggered b/c you deemed the error acceptable by coding (E) (and not checking %error afterward).

My guess is that the error is actually occurring after the Monitor group when the program tries to use RtDate.

Also - what does RTM mean?

-Kurt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Cyndi Bradberry
Sent: Friday, January 06, 2012 11:09 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: Help with Test for a date and Monitor

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


Thank you,
Cyndi B.
Boise, ID
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.