RE: Retreiving system date in USA format

Change the d spec to look like this:

Dmydate   s     D    datfmt(*usa) inz(*SYS)

This will initialize the field with the current system date.  No eval or
move op necessary.     

Bryan Yates
SR Systems Analyst/Programmer
Information Technology
Collin County Government
http://www.collincountytexas.gov
mailto:byates@xxxxxxxxxxxxxxxxxxxxx
 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Thursday, December 30, 2004 8:17 AM
To: RPG programming on the AS400 / iSeries
Subject: 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.