Re: Date format in V3R2?

[bmorris@xxxxxxxxxx]

>Date: Wed, 16 May 2001 09:37:39 -0500
>From: "Stone, Brad V (TC)" <bvstone@taylorcorp.com>
>
>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:
> ...

Brad, do a *JOBRUN MOVEL from the 6-digit date part of TIME
to a *ISO date field.  Then do a *ISO MOVE or MOVEL from the
date field to your 8,0 field.  (You need to use the 12-digit
form of TIME, because the job date formats are all 2-digit-year
formats.)

I see that Anton Gombkötö already gave a similar answer,
but he used MOVE in his example.  You have to use MOVEL in case
the job format is *JUL.  (With *JUL, the date only has 5 digits,
and MOVE uses the wrong 5 digits.)  The 6-digit date will work
until the system date is 2039; hopefully by then the V3R2
requirement will be gone.

(Or, you could use the CEE date routines, or QWCCVTDT etc as
others have already suggested.)

Barbara Morris

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