Raise message in Query

Question

Hi Experts
My customer want the ability to select any date upto 12 month window on one of the query.
To achieve this I have implemented the customer exit code in EXIT_SAPLRRS0_001 and also created customer exit variable on calendar day.
After executing the query in BEx designer, the query pop-up with the variable screen and then I have entred the date range for more than 12 months. When i click on check button I am getting blank screen insted of Error message as per the coding.
DATA:lc_diff TYPE i, "Difference between two dates
     lc_datefrom TYPE d,
     lc_dateto TYPE d.
CONSTANTS: c_365(3) TYPE n VALUE '365'.
*Step 1 is used for defaulting values into the Variables
*Previous data declaration is made use of where possible
*though it does not conform to the current naming standards
CASE i_vnam.
  WHEN 'ZV_DAT365'
    IF i_step EQ 1.
      CLEAR w_e_t_range.
      w_e_t_range-low  = sy-datum.
      w_e_t_range-high = sy-datum.
      w_e_t_range-sign = 'I'.
      w_e_t_range-opt = 'BT'.
      APPEND w_e_t_range TO e_t_range.
    ENDIF.
ENDCASE.
*Step 3 is used for checking user inputs. In this step 'I_VNAM' is blank,
*hence CASE statement to check variable name cannot be used.
IF i_step EQ 3. "No 3 is SAP system defined value for I_STEP
*365 Days variable
  READ TABLE i_t_var_range
       WITH KEY vnam = 'ZV_DAT365'
       ASSIGNING <w_i_s_var_range>.
  IF sy-subrc EQ 0.
    lc_datefrom = <w_i_s_var_range>-low.
    lc_dateto = <w_i_s_var_range>-high.
  Calculate the length of user input date range
    lc_diff = lc_dateto - lc_datefrom.
  If this date range is more than 365 days,then error message must be issued.
    IF lc_diff GT c_365.
      MESSAGE e001(00) WITH 'Days in the date range should be less than 365.'(001).
    ENDIF.
  ENDIF.
ENDIF.
Please advise.
Many Thanks in Advance.
Regards
RK

Answer 1

Replace this code with the below mentioned code:
IF lc_diff GT c_365.
MESSAGE e001(00) WITH 'Days in the date range should be less than 365.'(001).
ENDIF.
IF lc_diff GT c_365.
                          CALL FUNCTION 'RRMS_MESSAGE_HANDLING'
                           EXPORTING
                           i_class  = 'RSBBS'
                           i_type   = 'I'
                           i_number = '000'
                           i_msgv1  = ' Days in the date range should '
                           I_MSGV2  = 'be less than 365".
                           raise no_replacement.
ENDIF.
-Neelesh