In a message dated 1/3/00 1:44:39 PM Eastern Standard Time,
[log in to unmask] writes:

<<
 Get the Julian date from COBOL ("00003") in YYDDD format.
 Pass (YY*512) + DDD to FMTCALENDAR intrinsic.
 The intrinsic returns a string of characters like
 "FRI, DEC 31, 1999" and then I'd simply take the year and
 century from that string. It's been working great since 1989, but
 today it returns  WED, JAN  3, 1900
  >>
FMTCALENDAR is working correctly.  You are passing it the internal
"CALENDAR" format date for Jan. 3, 1900.  To get the result you expect,
change your call preparation to pass "(YY + 100) * 512 + DDD"  if the
value of YY is small.

Cecile Chi