RE: Date format in V3R2?

i'm doing pretty much the same thing and it did fail me.  

How does the system know that:
20010410 is in *EUR or *ISO using the TEST(d) opcode with factor 1?  It
could be either!  and in the example data I posted it did fail to work
properly.  It is rare, but it did happen.  

And since you can't use the TIME operation to put the data into a date type
field in V3R2, I have no other way.  Kinda a bummer.  I'm sure there has to
be a way to do this without having to grab the job's date format (unless I
could get that easy in the PSDS).

Brad

> -----Original Message-----
> From: Phil [mailto:sublime78ska@yahoo.com]
> Sent: Wednesday, May 16, 2001 10:32 AM
> To: RPG400-L@midrange.com
> Subject: RE: Date format in V3R2?
> 
> 
> I do essentially the same thing:
> 
> What I do differently is I don't test the date against all 
> possibles, and I
> use test(de).  I test until I don't have an error.  It hasn't 
> failed for me
> but I also haven't used it on V3R2.
> 
> Hth,
> 
> Phil
> 
> -----Original Message-----
> From: owner-rpg400-l@midrange.com 
> [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of Stone, Brad V (TC)
> Sent: Wednesday, May 16, 2001 10:38 AM
> To: 'RPG400-L@midrange.com'
> 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
> +---
> 
> 
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.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
> +---
> 
+---
| 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
+---