Query on selection screen

Question

Hi all,
Please give me the solutions to the following in selection screen:
1. In selection-screen there is one select-options and one parameter.
Now,if the select-opotions range is given 30 to 40 then, the parameter should be populated with 'A'.
If the select -options is given the value 50, then the value should be 'P'.
If the select-optons is given the value 65,then the value should be 'X'.
if the select-options is given the value 87, then the value should be 'N'.
2) In the selection - screeen there is one check box and select-options.
By default the check-box will be deselected and select-options will be defaulted with system date.
Now, when the checkbox is selected the select-options should be empty.
And again, when the checkbox is deselected then again the select-optons should be populated with system date.
Please let me know solutions to the above asap.
All points will be awarded.
Thanking you in advance.
Regards,
A.Srinivas

Answer 1

Hi Srinu,
Try below code. I have used matnr in select-options. Change it according to your data element.
TABLES: mara.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
PARAMETERS: p_c TYPE c.
PARAMETERS: p_chk AS CHECKBOX USER-COMMAND chk.
SELECT-OPTIONS: s_date FOR sy-datum DEFAULT sy-datum.
AT SELECTION-SCREEN.
  IF p_chk = 'X'.
    CLEAR s_date[].
  ELSE.
    s_date-low = sy-datum.
    APPEND s_date.
  ENDIF.
AT SELECTION-SCREEN OUTPUT.
  IF s_date[] IS NOT INITIAL.
    p_chk = ''.
  ENDIF.
  LOOP AT s_matnr.
    IF s_matnr-low = '000000000000000030' AND s_matnr-high = '000000000000000040'.
      p_c = 'A'.
      exit.
    ENDIF.
    CASE s_matnr-low.
      WHEN '000000000000000050'.
        p_c = 'P'.
      WHEN '000000000000000065'.
        p_c = 'X'.
      WHEN '000000000000000087'.
        p_c = 'N'.
    ENDCASE.
  ENDLOOP.