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 next