× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



MITTELHEISSER Jean Claude wrote:
> 
> Don is right. I think first digit must be century code. It is set to 0 if 
> year is from 1928 to 1999 and to 1 from 2000 to 2071. So you have only to 
> test this digit to constitute a long julian format and then to convert it to 
> mdy format.
> 

But you don't need to test this digit.  Just use %date(jul6 : *longjul)
to get a date from the 6-digit julian date.

Untested:
   eval   mdydate6 = %int(%char(%date(jul6 : *longjul) : *mdy0))

Fyi, a bit easier in V5R3:

   eval   mdydate6 = %dec(%date(jul6 : *longjul) : *mdy)


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.