Re: Converting from %date() to numeric

%date does NOT require 1 parm to work.  %date() will default to the 
current system date.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Duane Kehoe <dkehoe@xxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/09/2005 01:50 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Converting from %date() to numeric






   You need the code to look more like this
   Result = %int(%char( %date(udate):*iso0)))

   %Date requires 1 parm to work.  Hope this helps.

   RPower@xxxxxxxxxx wrote:

 Hmm,
 Wanting to test this code out, I coded this:
      d Result          S              8S 0
       /FREE
        Result = %Int(%Char(%Date():*ISO0));
        Dsply Result;
        *Inlr = *On;
       /END-FREE

 but for some reason, the Dsply flashes to the screen and ends.  It 
doesn't
 wait like it normally does.  Any reason for this?

 Ron Power
 Programmer
 Information Services
 City Of St. John's, NL
 P.O. Box 908
 St. John's, NL
 A1C 5M2
 Tel: 709-576-8132
 Email: rpower@xxxxxxxxxx
 Website: http://www.stjohns.ca/
 
___________________________________________________________________________
 Success is going from failure to failure without a loss of enthusiasm. -
 Sir Winston Churchill




 Raul Jager <raul@xxxxxxxxxx>
 Sent by: rpg400-l-bounces@xxxxxxxxxxxx
 09/02/2005 02:18 PM
 Please respond to
 RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


 To
 RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
 cc

 Subject
 Re: Converting from %date() to numeric






 I have learned something new today. I didn't know ISO format accepted
 separators.

 Tanks.

 Paul Morgan wrote:

 

 If you're adding 19000000 you can't work with dates before 1900 which is
 more of a problem.  Think Property Titles or Birth Dates.

 Paul



 

 

   --

   Weyco Group - 
 
       Florsheim, Brass Boot, Nunn Bush, Stacy Adams
   Duane Kehoe                       Phone # 414.908.1814 
   EC / Programmer / Analyst           Fax # 414.908.1610 
                             Email: dkehoe@xxxxxxxxxxxxxx 
-- 
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.