Re: Need help testing for date errors

Look up the TEST(D) operation in your friendly RPG manual.



On Thu, 20 Jul 2000 BillsVilla@aol.com wrote:

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