Error in Customer Exit

Question

Hi Guys,
I hope someone would be able to quickly point me in the right direction. I have the following error message:
"Diagnosis
This internal error is a deliberate termination, since a program status has arisen, that is not allowed to occur.
The error has arisen for variable ZMOVETYP1 in the customer enhancement .
Procedure
Please check your customer enhancement.
Procedure for System Administration"
ZMOVETYP1 is of Variable Type=Characteristic, Processing= Customer exit, Variable represents=Multiple single values, variable is Optional, and NOT Input ready. Basically I want to use this variable in a FILTER on movement types in order to EXCLUDE certain movement types based on calendar VALIDTO date and company code.
TRICKY part: how to send/load into l_s_range-low more than one value. Basically I want to exclude a PAIR of movement types each time. Either 301&302 , either 351&352.
Below is the code:
  WHEN 'ZMOVETYP1'.
     IF i_step = 2.
        DATA: zcompcode TYPE /BI0/PCOMP_CODE-comp_code,
              zvalidto TYPE sydatum.
        loop at i_t_var_range INTO l_t_var_range where vnam = 'ZMPD002'.
        endloop.
        if sy-subrc = 0.
* select the upper part of the 0CALDAY interval, ZMPD002 is basically VALIDTO, based on validfrom-validto interval
* specified by the user
         zvalidto = l_t_var_range-low.
        endif.
        loop at i_t_var_range INTO l_t_var_range where vnam = '0S_COCD'.
* select the company code based on the user input
        endloop.
        if sy-subrc = 0.
         zcompcode = l_t_var_range-low.
        endif.
         if zcompcode = '1L01'.
           if zvalidto >= '01.11.2010'.
* if validto date is bigger or equal to 01.11.2010 exclude from the filter the values 301 and 302
            l_s_range-low = '301'.
            l_s_range-sign = '*E*'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range TO e_t_range.
            l_s_range-low = '302'.
            l_s_range-sign = '*E*'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range to e_t_range.
           else.
* if validto is lower than 01.11.2010 exclude from the filter the values 351 and 352
            l_s_range-low = '351'.
            l_s_range-sign = '*E*'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range TO e_t_range.
            l_s_range-low = '352'.
            l_s_range-sign = '*E*'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range to e_t_range.
           endif.
         endif.
     endif.
Edited by: Dan on Dec 27, 2010 8:46 PM
Edited by: Dan on Dec 27, 2010 8:48 PM

Answer 1

try using the below code...
  WHEN 'ZMOVETYP1'.
     IF i_step = 2.
        DATA: zcompcode TYPE /BI0/PCOMP_CODE-comp_code,
              zvalidto TYPE sydatum.
        read table i_t_var_range INTO l_t_var_range where vnam = 'ZMPD002'.
        if sy-subrc = 0.
         zvalidto = l_t_var_range-low.
        endif.
        read table i_t_var_range INTO l_t_var_range where vnam = '0S_COCD'.
        if sy-subrc = 0.
         zcompcode = l_t_var_range-low.
        endif.
         if zcompcode = '1L01'.
           if zvalidto >= '20101101'.
            l_s_range-low = '301'.
            l_s_range-sign = 'E'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range TO e_t_range.
            l_s_range-low = '302'.
            l_s_range-sign = 'E'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range to e_t_range.
           else.
            l_s_range-low = '351'.
            l_s_range-sign = 'E'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range TO e_t_range.
            l_s_range-low = '352'.
            l_s_range-sign = 'E'.
            l_s_range-opt = 'EQ'.
            APPEND l_s_range to e_t_range.
           endif.
         endif.
     endif.
rgds, Ghuru