MPE V, Release 30 changed the CALENDAR intrinsic to return the number of
years since 1900 instead of the 2 digit year of the century, so in 2000
it returns 100 instead of 0.  (See COMMUNICATOR 3000, MPE V Release 3P,
Version G.3P.00 for details.)

I need a version of CALENDAR which follows the old convention of
returning only a 0 through 99 year of century.  I’d put this routine in
an SL to be accessed with the LIB=G parameter on the RUN commands for a
flock of programs that abort when years since 1900 rolls over to 100.
This will save me a bunch of unnecessary recompiles.  (All programs
compiled with my version of REX/3000 abort in 2000.)

This should be a simple SPL routine, but I’d rather buy it than learn
the SPL required for this one task.  This is the old “classic” MPE, NOT
MPE/iX.

------------
Rob Marsicek, 1-425-251-6703, Tally Company, Kent, Washington, USA