RE: convert 8 digit date to ISO date

*rotflmao*  Thanks for the great laugh Ray...

Should we start a pool on how long he has until his first hard halt with 
an invalid date?


I pick....  8 minutes.



_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Ray, Adam" <aray@fhp.org>
Sent by: owner-rpg400-l@midrange.com
02/01/2001 11:31 AM
Please respond to RPG400-L

 
        To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
        cc: 
        Subject:        RE: convert 8 digit date to ISO date
Thanks, I love this list.

I used the following C spec:

C     *ISO      MOVE     date8       isodate

No need to define or validate the date because it is coming from an input
file.
Also, as someone else suggested, there is no need to convert it to 
character
first.
Thanks again!
Adam 


                 -----Original Message-----
                 From:           Jade Richtsmeier 
[SMTP:jade.richtsmeier@mcis.cog.mn.us]
                 Sent:           Thursday, February 01, 2001 10:06 AM
                 To:             RPG400-L@midrange.com
                 Subject:                Re: convert 8 digit date to ISO 
date

                 This should work.......

                 d w_ISODate80   s              8  0
                 d w_ISODate       s               d   datfmt(*iso)

                 c     *ISO     move      w_ISODate80    w_ISOdate


                 ----- Original Message -----
                 From: "Ray, Adam" <aray@fhp.org>
                 To: <RPG400-L@midrange.com>
                 Sent: Thursday, February 01, 2001 8:56 AM
                 Subject: convert 8 digit date to ISO date


                 > This may be a silly question and I'm hoping it has a 
simple
answer.
                 > What is the easiest way to convert an 8 digit numeric 
date
(defined as 8P
                 0)
                 > in the format CCYYMMDD to an ISO format date field 
(defined as
10D)?
                 > I need to do some date calculations using the SUBDUR 
command.
                 > TIA
                 > Adam Ray
                 >

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