RE: convert 8 digit date to ISO date

[tomh@xxxxxxxxx]

<snicker>
"No need to ... validate ..." 
</snicker>

"Ray, Adam" <aray@fhp.org> Sent by: owner-rpg400-l@midrange.com 02/01/01 10: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
        >