Selection screen error message question

Question

On a selection screen, I have a selection-options for kunnr. If the user enters other than 100001 or 100002 or 100003 for this field, I want to display a error message. How do you do that? Can you please provide a sample code for this?
Thanks a lot.

Answer 1

hi,
Try this code
tables : kna1.
data: begin of it_kna1 occurs 0,
          kunnr like kna1-kunnr,
       end of it_kna1,
       v_fnd.
select-options : s_kunnr for kna1-kunnr.
at selection-screen on s_kunnr.
   select kunnr from kna1
                into table it_kna1
               where kunnr in s_kunnr.
   if sy-subrc = 0.
      read table it_kna1 with key kunnr = '0000100001'
                         binary search.
      if sy-subrc <> 0.
        read table it_kna1 with key kunnr = '0000100002'
                           binary search.
        if sy-subrc <> 0.
          read table it_kna1 with key kunnr = '0000100003'
                             binary search.
          if sy-subrc = 0.
            v_fnd = 'X'.
          endif.
        else.
          v_fnd = 'X'.
        endif.
      else.
        v_fnd = 'X'.
      endif.
   endif.
  if v_fnd = ' '.
    message e000(zz) with 'Invalid customer'.
  endif.
regards,
Sailaja.
Message was edited by: Sailaja N.L.