For the 16bit (CM, MPE/V compatible) COBOL compiler, I have a subroutine that has been tested for correct date calculations from Jan, 1. 1701 thru Dec. 31, 2107, figure that should do it for most business apps. ;-) If you don't have the option of using NM MPE/ix COBOL. I could probably send you the source.

On the current MPE/iX platform you should use the COBOL POST85 functions <See manual>. Using these functions in COBOL will allow you to use standard verbs to do all your date calculations, plus lots more. Enabling these functions is as simple as "$CONTROL POST85" Look for functions like INTEGER-OF-DATE and DATE-OF-INTEGER, or something like that.

Cheers,
M Anderson.


>>> Joe Smith <[log in to unmask]> 01/19 2:51 PM >>>
I just got a question on date calculations from one of our Cobol programmers,
but its been a long time since I used the calendar / date intrinsics.
Basically, the programmer wants to display the current date in the format
mm/dd/yy and then do a calculation of the current date + nn days, then display
the revised date in the same format.

This is a work scheduling application that has been in production for some time,
and it failed in the Y2K (they just found out).  The process they used before
was rather unbelievable, they calculated the julian date and did all
manipulations without using any intrinsics.  It is quite hard to follow.  They
want to get it right this time, so any help would be appreciated.