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

That was  what I was looking for.

Thank you very much, all & Barbara.

 --- bmorris@ca.ibm.com escribió: >
> >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
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>

_______________________________________________________________
Do You Yahoo!?
Yahoo! Messenger
Comunicación instantánea gratis con tu gente.
http://messenger.yahoo.es