RE: Date Conversion.

["Mackie, Roger L. (Precision Press)" <RLMackie@xxxxxxxxxxxxx>]

Oops. I wrote before I thought. This answer is correct. Mine previous
one wouldn't have worked either. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Monday, January 16, 2006 12:54 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date Conversion.

If at v5r3:

 @numA = %dec(@dateA:*YMD);

Otherwise
 @numA = %dec(%char(@dateA:*YMD0));

Note: that you need to use *YMD0 (that's a zero) to get no separators.

This, '06/01/25' can't be converted to numeric.

But this, '060125' can.


HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer Mitsubishi Electric Automotive
America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Troxclaire
> Sent: Monday, January 16, 2006 1:41 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Date Conversion.
> 
> I am try to use free format to convert a date field inot a numeric 
> field..
> 
> I used the following command and it does not work.
> 
>      D*  date fields..
>      D @dateA          s               d   inz(D'2004-12-04')
>      D*  numeric fields..
>      D @numA           s              6  0 inz(041205)
> 
>       // date to numeric..
>        @numA = %dec(%char(@dateA:*ymd/):6:0);
> 
> I am new to RPG. Any help would be much appreciated. Thanks in 
> advance.
> 
> Cheers,
> 
> Mike.
>