RE: format of *DATE (was Source code retrieval from opbject of display file)

>Date: Wed, 20 Mar 2002 14:31:40 +0100 (CET)
>From: =?iso-8859-1?q?Oscar=20Barber=E1?= <barberao@yahoo.es>
>
>C                 z-add     *DATE         xpdat0            8 0
>
>Until now, the result of this operaction was DDMMYYYY. But last
>week, our AS/400 was broken down, and we had to restore all the
>OS. And here comes the problem. Now, the result of the operation
>is MMDDYYYY.

Oscar, you must have had a default H spec data area.

Try this:

CRTDTAARA QGPL/RPGLEHSPEC TYPE(*CHAR) LEN(80) VALUE('DATEDIT(*DMY)')
or
CRTDTAARA QRPGLE/DFTLEHSPEC ...

(The QGPL one can be in any library - the compiler looks for it
in the library list whenever it doesn't find a real H spec in the
source.  Then if it doesn't find RPGLEHSPEC in the library list,
it looks directly in QRPGLE for DFTLEHSPEC.  If you were using
RPG/400, it would be *LIBL/RPGHSPEC and QRPG/DFTHSPEC, and the
data area would look like an RPG III H spec, with H in column
6 etc.)

By the way, the system value QDATFMT, and the job value DATFMT do
not affect the format of *DATE and UDATE.  It is entirely dependent
on the H spec DATEDIT value.

Barbara Morris