Resta un mes a la fecha

DATA: fecha(06),
mes(02),
year(04),
fecha_new(06).

fecha = '200501'.
mes = fecha+4(2).
year = fecha+0(4).

IF mes = '01'.
year = year - 1.
CONCATENATE year '12' INTO fecha_new.
CONDENSE fecha_new NO-GAPS.
ELSE.
mes = mes - 1.
UNPACK mes TO mes.
CONCATENATE year mes INTO fecha_new.
CONDENSE fecha_new NO-GAPS.
ENDIF.

fecha = fecha_new.