...Simple:
CHGDTETME DTETME(*CURRENT) DURATION(*SUB *DAY) RTNVAL(&RESULT)
Or the date a month from now:
CHGDTETME DTETME(*CURRENT) DURATION(*ADD *MONTH) RTNVAL(&RESULT)
Or a week ago:
CHGDTETME DTETME(*CURRENT) DURATION(*SUB *WEEK) RTNVAL(&RESULT)
In addition to special values, Duration can be any combination of year, month, day, hours, minutes, and seconds:
YYYY-MM-DD-HH.MM.SS
Each segment can range from all zeros to all nines. For example a Duration of 0001-00-01-00.10.00 is a year, a day, and ten minutes. The only limitation is that the result date (RTNVAL) must fall between January 1, 0001 and January 1, 10000.
The base timestamp (DTETME) can be any valid timestamp value in YYYY-MM-DD-HH.MM.SS format.
...