AW: Retreiving system date in USA format

["HauserSSS" <Hauser@xxxxxxxxxxxxxxx>]

Hi,

*DATE or UDATE is not the system, but the job date.
To get the system date you either have to use opcode TIME or the
built-in-function %Date.
C          eval       MyDate = %Date();

If you want to use *Date in a eval statement, you have to put the
built-in-function %Date() around.
D myDate      s     D    datfmt(*usa)
 *---------------------------------------------
C          eval        mydate = %Date(*date)

You also can initialize the date field directely in the D-Specs.
But be aware that the initialization only takes place at the first call,
like an initialization in the *INZSR routine.
This can be a problem if your program ends with RETURN and is repeatedly
called.
D myDate      S         D   DatFmt(*USA) inz(*SYS)

If you use *JOB instead of *SYS your date field is initialized with the
Job-Date.

Birgitta


-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Douglas W. Palme
Gesendet: Donnerstag, 30. Dezember 2004 15:17
An: RPG programming on the AS400 / iSeries
Betreff: Retreiving system date in USA format


I have been attempting to figure out how to retrieve the current system date
and assign it to a display file, but am running into trouble.

This needs to display in *USA format.

Here is what I did:

* first declare standalone
Dmydate   s     D    datfmt(*usa)

in the C specs I had the following

eval        mydate = *date

move       mydate     ddate

I keep getting an error that the two sides of the eval do not
match....suggestions?
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.