Re: Test Date

[boothm@xxxxxxx]

This piece of code works:

0088.00 C     FmtIn         WhenEq    '*MDY'                                
 0089.00 C     *mdy          test(d)                 DateN      99 0090.00
C  N99*mdy          move      DateN         DateISO                  
0091.00 C   99              move      '1'           Error                   


The only *ISO dates that will not convert are those dates earlier than
January, 1940 or later than December 2039.  You will have to do that test
in order to see if *ISO will convert to *MDY


In <37974B8C.507A0148@hillmgt.com>, on 07/22/99 
   at 12:49 PM, John Hall <jhall@hillmgt.com> said:

>I need to convert an ISO date to a *MDY date

>some of the ISO dates are not valid *MDY dates

>How do I test the ISO date to see if it will convert to a *MDY?

>The TEST opcode does not allow you to specify a date format to test
>against

>TIA

>John Hall
>Home Sales Co.
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

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