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.
> 
> _________________________________________________________________
> On the road to retirement? Check out MSN Life Events for 
> advice on how to 
> get there! http://lifeevents.msn.com/category.aspx?cid=Retirement
> 
> -- 
> 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.
> 
>