RE: Date format in V3R2?

V3R2 only allows a numeric as a result in the TIME opcode.

Brad

> -----Original Message-----
> From: Peter Dow [mailto:pcdow@yahoo.com]
> Sent: Wednesday, May 16, 2001 11:15 AM
> To: RPG400-L@midrange.com
> Subject: Re: Date format in V3R2?
> 
> 
> Hi Brad,
> 
> Why not skip all that stuff and simply do the TIME opcode 
> into a timestamp
> result field, then move it in whatever format you want to a 
> numeric field?
> 
> 
>       D MyDate          S              8p 0
>       D SysDate         S               D   DATFMT(*ISO)
>       C                   TIME                    SysDate
>       C    *ISO           MOVE      SysDate       MYDATE
> 
> Unless there's some reason you want to know the job date 
> format independent
> of your objective of logging the date in yyyymmdd format. 
> That's something
> you'd think would be in the program status data structure, 
> but I don't see
> it.
> 
> hth,
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
> 
> 
> ----- Original Message -----
> From: "Stone, Brad V (TC)" <bvstone@taylorcorp.com>
> To: <RPG400-L@midrange.com>
> Sent: Wednesday, May 16, 2001 7: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
> > +---
> 
> 
> _________________________________________________________
> 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
+---