Re: Date Format prior to 1940

["Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>]

Hi Silva,

What do you mean by the simplest date format?  The shortest would be 
*JUL, but because the 1939-06-01 date is out of the range for 2-digit 
years (1940-2039), you can't use it.

The range for a 2-digit year is 1940-2039.
The range for a 3-digit year is 1900-2899.
The range for a 4-digit year is 0001-9999.

Which leaves you with *CYMD or *LONGJUL, both 7-digits.  Of those two, 
*LONGJUL has a 4-digit year, so it might be the better choice depending 
upon what you're trying to accomplish.

In any case, after choosing the correct format for what you want to 
accomplish, it would seem simpler to use %dec, as in

   Date8 = %dec(Date5: *CYMD);

which gives the result you show.

   Date8 = %dec(Date5: *LONGJUL);

gives 1939152.

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /


Chandana Silva wrote:
> We are on V5R4 and I am not sure, if this is a PTF issue. 
>   I searched the net but couldn't come closer.
>    
>   Here is the code:
>   
> D  Date5           S               D    INZ(D'1939-06-01')
> D  Date8           S              8  0  INZ(20080101)   
>  
> Date8   = %Uns(%char(Date5:*CYMD0))
> DATE8 = 00390601
>
>   Per IBM I have to use the 3 Digit format for this but result is not good for a 8 digit field but good for 6 digit. 
>    
>   My objective  is to  get the DATE8 = 19390601 in the simplest Date format.
>    
>   Any suggestions would be greatly appreciated.
>    
>    
>    
>    
>