URGENT : select options

Question

Hye techies,
  I have a requirement, where i have 3 select options. Atleast data one select option should be entered. So, i cannot use obligatory tag.
i am writing the code as follows.
select-options: s_a for ztab-a,
                      s_b for ztab-b,
                      s_c for ztab-c.
data: chk_input type i.
chk_input = 0.
if s_a is not initial.
chk_input = chk_input + 1.
endif.
if s_b is not initial.
chk_input = chk_input + 1.
endif.
if s_c is not initial.
chk_input = chk_input + 1.
endif.
case chk_input.
when 0:.
MESSAGE 'Select atleast one entry in block 2' TYPE 'I'.
when 1.
when others.
MESSAGE 'Too many inputs in block 2' TYPE 'E'.
endcase.
I have 2 problems here.
1. When i am clicking on the arrow next to select options, it is displaying the first message considering the entry as empty.
2. If i enter one entry in one of the select options and then click on arrow for multiple selection, second error message is coming.
Please help me, as my requirement is one entry should be dere in one select options and it can have multiple values. but one entry is mandatory.. If the entry is wrong, previously entered values should be cleared.
At selection-sceen output.
Thanks in advance
Imran.

Answer 1

Hi İmran,
You firstly create a block and then put the select options within this block like this:
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-003.
SELECT-OPTIONS:
s_lgort FOR ekpo-lgort  NO-EXTENSION NO INTERVALS,
s_vtweg FOR vbak-vtweg.
SELECTION-SCREEN END OF BLOCK  block1.
Afterwards,
AT SELECTION-SCREEN ON BLOCK block1.
  IF s_lgort[] IS INITIAL AND
     NOT s_vtweg[] IS INITIAL.
    MESSAGE e101(c+) WITH
      'Please enter the value.... write here whatever you want'
  ELSEIF s_vtweg[] IS INITIAL AND
         NOT s_lgort[] IS INITIAL.
    MESSAGE e101(c+) WITH
        'Please enter the value.... write here whatever you want'
  ENDIF.
In the past I have used this and it works.
Hope helps.
Edited by: Deniz Toprak on Jun 17, 2008 10:12 AM