RE: Retreiving system date in USA format

["Rich Dotson" <rich_dotson@xxxxxxxxxxx>]

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!