Re: Converting from %date() to numeric

[Peter.Colpaert@xxxxxxxxxx]

Mike,

this should do the trick:

h bnddir('QC2LE')
 //  
d System          PR            10i 0 ExtProc('system') System Command 
d                                 *   value options(*string)   
 //
 /free
   DateNumeric = atoi(%char(%date():*iso0));
 /end-free

HTH,

Peter Colpaert
Application Developer
Massive - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----




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

 
        To:     RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Converting from %date() to numeric


%char converts a date to characters, in the format you want.  Chosse 
something wihtout separators.  Then use %int to make it numeric.

You may have a problem to get 8.0, I know yuo can get *cymd (7.0) then 
add 19000000.  Like this

numeric_date = %int( %char( date_field: *cymd)) + 19000000;
_____________________________________________________________________________
Mike Wills wrote:

>I need to get today's date in an 8,0 field. I am using free-format. I
>know I can get today's date by using %date(), but how do I convert
>that to an 8,0 field? I have tried both %int and %dec and they don't
>work. I am on V5R2. Any ideas?
> 
>