Re: System Date Problem

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

On Thu, 7 Oct 2004 rob@xxxxxxxxx wrote:

> - CHGJOB - coding required, but not too much.  Could be part of "Initial
> program to call".  The display on WRKSYSVAL QDATFMT says that the job date
> format does default from QDATFMT.

The date format specified with CHGJOB will not affect the format of the
system value QDATE, it'll only affect the job date.  (The original poster
referenced QDATE)


> -   Submit a DCR to get job date format as part of the job description.

Isn't the date format part of the locale?  In other words, by specifying a
different locale in the user profile, he'd get the correct format without
needing the DCR, wouldn't he?  Doesn't matter much since he's using QDATE
instead of the job date, so changing the format of the job date doesn't
help.

Ulimately, unless he wants to use an LPAR, I think he's out of luck.

He's going to have to change his code -- hopefully this time he'll write
his programs to NOT just assume that the date is in a particular format!!
If he needs to guarantee that the date is in a particular format, just do
a CVTDAT after the RTVSYSVAL

For example, if you want to retrieve a date and have the results always in
YMD format, no matter what the system values are set to, you could do
this:

    RTVSYSVAL SYSVAL(QDATE) RTNVAR(&MYDATE)

    CVTDAT DATE(&MYDATE) TOVAR(&YMDFMT) FROMFMT(*SYSVAL) TOFMT(*YMD) +
            TOSEP(*NONE)

That way, you don't have to write programs that just assume that the
system date will be in a particular format!