Previous Topic: 'FROM_EXTERNAL'Next Topic: 'ADD_WORK'


'ADD_YEARS'

The 'ADD_YEARS' function is used to add a number of years to a date, producing a resultant date. All fields are four bytes packed. Dates are CA TLMS internal dates.

DEF FROM_DATE    (P 7.0) = NONE 'FROM' 'DATE'
DEF YEARS        (P 7.0) = NONE 'YEARS' 'ADDED'
DEF RESULT_DATE  (P 7.0) = NONE 'RESULT' 'DATE'
DEF FUNCTION      (X 80) = NONE

SET FROM_DATE = EXPDT
SET YEARS     = 3
SET FUNCTION  = 'ADD_YEARS'

CALL CTSEDATE USING FUNCTION
                    FROM_DATE
                    YEARS
                    RESULT_DATE