|
Thanks for the help! On Thu, 30 Dec 2004 08:48:57 -0600, Dane Cox wrote > I usually do something like this... > > D today s d > > C time today > C *mdy move today today6 > C *longjul move today today7 > > In your case, I think you could simply do this... > C time mydate > > Also, if I remember correctly, *date and udate are the job date, not > the current system date. > > Hope this helps. > > Dane > > -----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. > > NOTICE: This electronic mail message and any files transmitted with > it are intended exclusively for the individual or entity to which it > is addressed. The message, together with any attachment, may contain > confidential and/or privileged information. Any unauthorized review, > use, printing, saving, copying, disclosure or distribution is > strictly prohibited. If you have received this message in error, > please immediately advise the sender by reply email and delete all copies. > > -- > 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. -- Open WebMail Project (http://openwebmail.org)
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.