DATA:p_month_day TYPE d.
p_month_day = p_month && ‘01’.
CALL FUNCTION ‘RSARCH_DATE_SHIFT’
EXPORTING
i_date = p_month_day
i_shift = 1
i_shift_unit = ‘MON’
i_option = ‘LT’
IMPORTING
e_date = zlast_s
EXCEPTIONS
illegal_shift_unit = 1
out_of_bounds = 2
illegal_option = 3
OTHERS = 4.