COBOL has a couple nifty date functions that allow you to add or subtract from a given date.
The INTEGER-OF-DATE function converts a date in the Gregorian calendar (formatted as CCYYMMDD) to an integer, allowing you to add to subtract from the date.
The DATE-OF-INTEGER function does the opposite, and converts an integer to a Gregorian date (formatted CCYYMMDD).
Here’s how I do it:
In WORKING-STORAGE SECTION:
In PROCEDURE DIVISION:
Easy, right? One great place to use this is on a customer invoice. Suppose I’m processing a customer invoice today that would have a due date of today + 30. This is the best way of found of doing this.