RE: Retreiving system date in USA format

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)