Art Celestini wrote:
Actually, I'm going to need this to work back to z/OS 1.2 and maybe
earlier. The goal is to calculate a doubleword retention-in-seconds
(from the current moment) value for a special NAS device. For dates
beyond 2042, I'm currently looking at a comparatively simple, rather
linear way of factoring in the leap year adjustment that will get me
very close to the target expiration date/time.
I'll write the code so it only does the above when CONVTOD returns an
RC=20 (which is what I see now with years beyond 2042). That way,
whenever CONVTOD begins to support the higher years, it'll use the
STCKE-format-based calculation.
Thanks to all for their responses.
Why not use LE callable services? Lilian timestamps are
64-bit double precision floating point numbers containing
the number of seconds that have elapsed since midnight
14 October 1492; they support dates and times up to the
year 10000. There are callable services to convert between
conventional date / time formats to Lilian.
<ad>
All this, and tons more, is included in our three
day course "Using LE Services in z/OS". All the
LE callable services are discussed, and how to
use them in programs written in COBOL, PL/I, C,
and Assembler.
For details, see:
http://www.trainersfriend.com/Language_Environment_courses/m512descr.htm
</ad>
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
