RE: Checking for Valid Dates

["Bryan Yates" <srprog3@xxxxxxxxxxxxxxx>]

John use the test opcode on the date before you move. This works as well

C     *MDY           Test(DE) DDSDATE
C*
C                    If       not %error
etc.....

-----Original Message-----
From: John M. Bauman [mailto:JMBauman@wardtrucking.com]
Sent: Wednesday, October 17, 2001 4:14 PM
To: rpg400-l@midrange.com
Subject: Checking for Valid Dates



Hi all I am new to the RPG ILE arena so I thought I would run this by
everyone.

 I have a date field in MMDDYY format on a screen, I will call it
DDSDATE.
I EXFMT the screen and I move DDSDATE to a date field defined as MDY in
my
RPG program.  I then check to see if the date is valid by using the TEST
opcode.  My problem is if the user typed in an invalid date, when I try
to
move DDSDATE to date field in my RPG program it blows up on the move
itself
stating that the date stamp is invalid.  Any suggestions.  (Note: I have
been programming in RPG III for about nine years)

Thanks

John M. Bauman
Lead Programmer
Ward Trucking
Second Avenue & Seventh Street, Greenwood
Altoona, Pa 16602

Voice: (800) 458-3625 Ext. 284
Voice Direct: (814) 947-1284 (Direct Line)
Fax: (814) 944-5470

Visit our website at http://www.wardtrucking.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.