Re: Converting from Úte() to numeric

["Booth Martin" <booth@xxxxxxxxxxxx>]

Can you also something like this:

D  Numeric   s        8  0  inz(*sys)

and be done with it? 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 02/07/05 13:15:17
To: RPG programming on the AS400 / iSeries
Subject: Re: Converting from Úte() to numeric
 
At V5R2, try
 
     D Numeric         S              8S 0
 
      /Free
 
         Numeric = %Int(%Char(%Date():*Iso));
         Dsply Numeric '*REQUESTER';
         *InLR = *On;
 
      /End-Free
 
Brian Parkins
--
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.
 
 
.