Re: Date format in V3R2?

["Ann E. Gerling" <agerling@xxxxxxxxxxx>]

I can never keep what you can and can't do with in each version...

...but I believe you could just do:

                TIME                                   ISODate    (This gets
it in the correct format)
                MOVE         ISODate        MYDATE   (Then RPGLE interprets
it to a #)


----- Original Message -----
From: "Stone, Brad V (TC)" <bvstone@taylorcorp.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, May 16, 2001 9:37 AM
Subject: Date format in V3R2?


> Is there any way to get the date format used in the job in an RPG program?
>
> Heres my dilema.  I am logging data and always want to store the date in
> YYYYMMDD format in an 8,0 field.
>
> So, with I do a TIME operation I get the date and time.  Now, I want to do
a
> test(d) on the date to see if it's *USA, *ISO, or *EUR.  I'm seeing bugs
in
> the way it works, though.
>
> Does anyone have any suggestions on a good way to do this?  It has to be
> compliant with V3R2.  Here's what I have that doesn't work:
>
>      D                 DS
>      D TimeStamp               1     14  0
>      D  OperTime               1      6  0 INZ
>      D  OperDate               7     14  0 INZ
>       *
>      D ISODate         S               D   DATFMT(*ISO)
>      D USADate         S               D   DATFMT(*USA)
>      D EURDate         S               D   DATFMT(*EUR)
>       *
>      C                   TIME                    TimeStamp
>      C     *USA          TEST(d)                 OperDate               99
>      C     *EUR          TEST(d)                 OperDate               98
>      C     *ISO          TEST(d)                 OperDate               97
>       *
>      C                   select
>      C                   when      (not *IN99)
>      C                   MOVE      OperDate      USADate
>      C                   MOVE      USADate       ISODate
>      C                   MOVE      ISODate       MYDATE
>      C                   when      (not *IN98)
>      C                   MOVE      OperDate      EURDate
>      C                   MOVE      EURDate       ISODate
>      C                   MOVE      ISODate       MYDATE
>      C                   other
>      C                   MOVE      OperDate      MYDATE
>      C                   endsl
>
> Example of error is:
>
> 20010304
> 20010304
> 20010304
> 20011004 Looks like october 4, should be April 10th.
> 20011004 Looks like october 4, should be April 10th.
> 20011004 Looks like october 4, should be April 10th.
> +---
> | 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
+---