You might want to look at the HP3000 wire: 
https://3000newswire.blogs.com/3000_newswire/2017/12/2028-and-beyond-this-faq-answers-all.html

and for the HPCALENDAR intrinsic:
bits 0:23 is the years since 1900 and
bits 23:9 day of the year.

I would use the GETVAR intrinsic and pull up HPYYYYMMDD variable.

Olav.
---- Paul Christensen <[log in to unmask]> wrote: 
> External Email
> 
> I haven't posted on this list in years, and now I have 2 in the same
> day!  Since I'm on a roll here, I wanted to ask another question.
> 
> I've been asked to look into using the HPCALENDAR intrinsic.  I might
> have used that in the past, but I don't recall it and don't have any
> example of it.
> 
> Does anyone have a COBOL example of using this intrinsic that they
> would share?
> 
> Now one other question on this;  that I want to be sure that I
> understand correctly;
> Regardless of what method we use to get the date - we MUST apply a
> patch to MPE or we go belly-up at the end of 2026 - is that correct?
> 
> But if we convert to using HPCALENDAR  AND we apply an MPE patch - we
> will be able to continue to run and get the correct date.
> 
> And one other thing to clarify - even if we converted to Stromasys,
> that system still needs a patch to function correctly - is that right?
> 
> Thanks and stay safe everyone.
> 
> 
> Paul Christensen
> 
> 
> 
> This message is not from a UTC.EDU address. Caution should be used in clicking links and downloading attachments from unknown senders or unexpected email.
> 
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *