Calculate due date 90 days from today
01 YYYYMMDD Pic 9(8). 01 Integer-Form Pic S9(9). Move Function Current-Date(1:8) to YYYYMMDD Compute Integer-Form = Function Integer-of-Date(YYYYMMDD) Add 90 to Integer-Form Compute YYYYMMDD = Function Date-of-Integer(Integer-Form) Display 'Due Date: 'YYYYMMDD