Tuesday, November 28, 2006

[BW] raise error message from variable user exit

DATA: LOC_VAR_RANGE LIKE RRRANGEEXIT.

IF I_STEP = 3.
LOOP AT I_T_VAR_RANGE INTO LOC_VAR_RANGE WHERE VNAM = 'MONTH'.
IF LOC_VAR_RANGE-LOW(4) LE 1998.
CALL FUNCTION 'RRMS_MESSAGE_HANDLING'
EXPORTING
I_CLASS = 'RSBBS'
I_TYPE = 'I'
I_NUMBER = '000'
I_MSGV1 = 'Year <= 1998 not allowed'.
RAISE no_replacement.
ENDIF.
ENDLOOP.
ENDIF.