×
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.
Cyndi,
Have you tried defining BadDate as 00112?
Gary Monnier
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Cyndi Bradberry
Sent: Friday, January 06, 2012 9: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.
midrange.com
