Re: Date Format prior to 1940

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.