Re: converting system date to integer

[Gene Burns <burns.gene@xxxxxxxxx>]

You can use the following, where @numD is a 6 digit number and @dateA is 
the system date:

@dateA = %date;  //System date

@numD = %dec(%char(@dateA:*mdy/):6:0);   // D'ccyy-mm-dd'  to  mmddyy  

Gene Burns
Programmer Analyst
Haulers Insurance Company, Inc.
gburns@xxxxxxxx
931-381-5406 x189

Douglas W. Palme wrote:
> I am in need of converting a system date to a six digit numeric....
>
> So if the system date is say 04/14/06 I need to convert it to a 041406 
> numeric type...
>
> I thought about doing it by using a move statement with *MDY in factor one 
> but I don't believe that will work as I would have to use 10 digits for the 
> date.
>
> the problem is we have some display files that there is not enough room to 
> allow for a four digit year and I am not prepared at this time to re-write 
> the entire file.
>
> Suggestions or hints?
>
>
> If you bought it, it was hauled by a truck - somewhere, sometime.
>
>