AW: Need help testing for date errors

["Hannes Rosner" <Rosner@xxxxxxxxxx>]

Try e.g.
*ISO0     TEST(D)     FieldA       99 ER

regards Hannes

-----Ursprüngliche Nachricht-----
Von:    owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com] im
Auftrag von BillsVilla@aol.com
Gesendet am:    Donnerstag, 20. Juli 2000 17:44
An:     RPG400-L@midrange.com
Betreff:        Need help testing for date errors

Is there anyway to test if a 6,0 numeric field holding a date has a good
date
before using:
                 *MDY        MOVE       DOB       ISO_DOB

I came across a date in a file that had 023163 as the date which of course
is
invalid since February never has 31 days in it.

Just looking for an easy way to do this in RPG.

Also, I'm well aware that this should be tested at the input level so please
don't tell me that.

Thanks,

Bill
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---