| ### Intrinsic function example

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

©1997 IBM Corporation