× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



D SystemDate S D DatFmt(*USA) Inz(*SYS)

D DisplayDate S 10A Inz

/Free

DisplayDate =
%Char(SystemDate);


*InLR = *On;

/End-Free



  ----Original Message Follows----
  From: "Douglas W. Palme" <DPALME@xxxxxxxxxxxxxxxxxxxxx>
  Reply-To: RPG programming on the AS400 / iSeries <RPG400-L@xxxxxxxxxxxx>
  To: RPG programming on the AS400 / iSeries <RPG400-L@xxxxxxxxxxxx>
  Subject: Retreiving system date in USA format
  Date: Thu, 30 Dec 2004 06:16:53 -0800
  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.

    ----------------------------------------------------------------------

Download the new MSN Toolbar Suite * now you can search your PC, too!

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.