Need help testing for date errors

[BillsVilla@xxxxxxx]

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
+---