RE: Date format in V3R2?

Is your problem that you have no control of the input date and you're trying
to derive the format of the date but the formats for *ISO and *EUR are
ambiguous until the 13th of each month?

My routine works because I know the possible formats in my environment and
they don't include *EUR.

I can't think of anything that you can count on.

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 1:34 PM
To: 'RPG400-L@midrange.com'
Subject: RE: Date format in V3R2?

I looked at  *JOBRUN, but I don't want my software to have the Y2039 bug.
:)  Thanks!

Brad

> -----Original Message-----
> From: Anton Gombkötö [mailto:gombkoetoe@ASSOFT.COM]
> Sent: Wednesday, May 16, 2001 12:06 PM
> To: RPG400-L@midrange.com
> Subject: Re: Date format in V3R2?
>
>
> Hi Brad,
>
> maybe *JOBRUN solves your problem? (Just checked it, compiling to
> TGTRLS(V3R2M0) works)
>
> So you would just
>
> *JOBRUN      TEST(D)      OperDate
>
> and
>
> *JOBRUN MOVE       OperDate     RealDateField
>
> Unfortunately, this can handle only 6 digits, not 8.
>
> Maybe IBM didn't want us to make 8-digit date-entry fields
> and keep the
> 6-digit ones? I do not understand why; it would be such a smart cutie.
>
> As one doesn't know where the year is (left or right?); it's
> not simple to
> save the century and apply it to the real date field.
>
> So we ended up with a function for checking dates that calls
> a module that
> does a RTVJOBA DATFMT(&DATFMT) to know in what date format
> the user was
> trying a date to key in.
>
>
>
> Mit freundlichen Grüssen / best regards
>
> Anton Gombkötö
>
> Avenum Technologie GmbH
> Wien - Mattsee - Stuttgart
> e-mail Office   :       mailto:Anton.Gombkoetoe@avenum.com
> Homepage        :       http://www.avenum.com
>
> Lest das Redbook / read the redbook "Who knew you could do
> that with RPG?":
> http://www.redbooks.ibm.com/abstracts/sg245402.html
>
> +---
> | 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
+---