RE: convert 8 digit date to ISO date

["Ray, Adam" <aray@xxxxxxx>]

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