RE: Checking for Valid Dates

Oops hit the wrong blasted key...As I was saying:
John use the test opcode on the date before you move. This works time
fields also.  I suggest John that you download the ILE RPG referenc
manual from the IBM site.  In PDF format it is completely indexed and
you can zip write to the bif or opcode of your choice.


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.