Re: Test Date

[Jon.Paris@xxxxxxxxxx]

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