Customer exit in BEx to derive Cal month

Question

hey all,
i need to write  a customer exit, to derive  prev Cal Month value from the given Calday. I have written the code but it derives the current cal month instead of previous. any suggestions ?
case I_VNAM.
  when 'ZCU_CMTH' .
    if i_step = 2.
      loop at i_t_var_range into l_s_var
              where vnam = 'ZCCCD'.
        CMTH_YR = l_s_var-low.
        l_s_range-low = CMTH_YR(6).
        CMTH = CMTH_YR+4(2).
        CMTH = CMTH - 1.
        L_S_RANGE-LOW+4(2) = CMTH.
        l_s_range-sign = 'I'.
        l_s_range-opt  = 'EQ'.
        write :/ l_s_var.
        append l_s_range to e_t_range.
      endloop.
    endif.
       clear l_s_range.
endcase.
thanks
Laura.

Answer 1

Hi,
Try the following logic to get the previous year month based on calday:
data :CMTH_YR (4),
         cmth_mn(2).
case I_VNAM.
when 'ZCU_CMTH' .
if i_step = 2.
loop at i_t_var_range into l_s_var
where vnam = 'ZCCCD'.
if l_s_var-low+4(2) eq '01'.
  CMTH_YR = l_s_var-low+0(4) - 1 .
  concatenate CMTH_YR  '12' into L_S_RANGE-LOW.
else.
  cmth_mn =  l_s_var-low+4(2) - 1 .
  concatenate l_s_var-low+0(4)  cmth_mn into L_S_RANGE-LOW.
endif.
l_s_range-sign = 'I'.
l_s_range-opt = 'EQ'.
append l_s_range to e_t_range.
endloop.
endif.
clear l_s_range.
endcase.
hope it works...
regards,r
raju