Re: Date format in V3R2? -- RPG400-L

Oops! missed that. Why are they stuck on V3R2?

----- Original Message -----
From: "Stone, Brad V (TC)" <bvstone@taylorcorp.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, May 16, 2001 10:31 AM
Subject: 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
> +---


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