Find the number of days between two dates

Is there a routine that automatically calculates the number of days between two dates in Net Express?

The FUNCTION INTEGER-OF-DATE is a simple date-to-number conversion.

Once the dates has been converted to numeric values comparable to a base date, one can then be subtracted from the other.

Have a look at the following:

WORKING-STORAGE SECTION.
01  INPUT-DATE-1                PIC 9(8).
01  INPUT-DATE-2                PIC 9(8).
01  NUM-DATE-1                  PIC 9(8).
01  NUM-DATE-2                  PIC 9(8).
01  NO-OF-DAYS                  PIC 9(8).

Procedure Division.

   MOVE 20101201 TO INPUT-DATE-1.

   MOVE 20101230 TO INPUT-DATE-2.

   MOVE FUNCTION INTEGER-OF-DATE (INPUT-DATE-1) TO NUM-DATE-1.
   MOVE FUNCTION INTEGER-OF-DATE (INPUT-DATE-2) TO NUM-DATE-2.
   SUBTRACT NUM-DATE-1 FROM NUM-DATE-2 GIVING NO-OF-DAYS.

   DISPLAY NO-OF-DAYS.

This is one option you may wish to use.