Use the ADD_DAYS function to add a number of days to a given date, giving a resultant date. FROM_DATE is four-bytes, packed, CA 1 internal date; DAYS is four-bytes packed; and RESULT_DATE is four-bytes, packed, CA 1 internal date.
DEF FROM_DATE (P 7.0) = NONE 'FROM' 'DATE'
DEF DAYS (P 7.0) = NONE 'DAYS' 'ADDED'
DEF RESULT_DATE (P 7.0) = NONE 'RESULT' 'DATE'
DEF FUNCTION (X 80) = NONE
SET FUNCTION = 'ADD_DAYS'
SET FROM_DATE = EXPDT
SET DAYS = 7
CALL CTSEDATE USING FUNCTION
FROM_DATE
DAYS
RESULT_DATE
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|