900-NBR-DAYS-IN-DATE-RNG

900-NBR-DAYS-IN-DATE-RNG calculates the number of calendar days difference between two specified dates. The number of days is always greater than zero.

Library CALRTNS

Required Input

Field Type and length Definition
WSDR-FR-DATE N 8

Calculate from this calendar date: YYYYMMDD

If the input date century equals 00, it changes to 19 or 20. See Century Parameter Processing.
WSDR-TO-DATE N 8 Calculate to this calendar date: YYYYMMDD

Output

Field Type and length Definition
WSDR-NBR-DAYS N 8 Number of calendar days difference from one date to another. Always positive.
WSDR-ERROR-NBR N 9

Error number.

See Error Number.
WSDR-ERROR-VAR A 20 Input parameter is in error.

Programming Example

     MOVE APP-DUE-DATE           TO WSDR-FR-DATE.
     MOVE PRM-PAYMENT-DATE       TO WSDR-TO-DATE.
     PERFORM 900-NBR-DAYS-IN-DATE-RNG.