Re: Test Date

[John Hall <jhall@xxxxxxxxxxx>]

Thanks Jon - that's exactly what I was looking for

Jon.Paris@halinfo.it wrote:
> 
> Oopppsss - just realised you said "how do I test", not "how do I do it".
> 
> This is what you need to do.  You could of course hard-code the high and low
> value dates as in the comment lines below in which case the first two Evals 
>are
> not needed.
> 
>      D DateStuff       DS
>      D  ISODate                        D   DatFmt(*ISO)
>      D  MDYDate                        D   DatFmt(*MDY)
>      D  LowDate                        D   DatFmt(*MDY)
>      * LowDate        C                   D'1940-01-01'
>      D  HighDate                       D   DatFmt(*MDY)
>       * HighDate       C                   D'2039-12-31'
> 
>      C                   Eval      LowDate = *LoVal
>      C                   Eval      HighDate = *HiVal
>      C                   If        ISODate >= LowDate AND ISODate <= HighDate
>      C                   Eval      MDYDate = ISODate
>      C                   EndIF
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *