Creating a list box to the selection screen field

Question

Hi folks,
         Could any one suggest me how to add a list box (drop down list) to a selection screen field.
          Thanks,
          Santosh.
Edited by: shyam prasad on Apr 3, 2009 6:07 AM

Answer 1

Hi,
just follow the code like below,
TYPE-POOLS: vrm.
TABLES sscrfields.
PARAMETERS: p_values AS LISTBOX VISIBLE LENGTH 10.
PARAMETERS: p_key TYPE char40 DEFAULT '5',
            p_text TYPE char80 DEFAULT 'Motorcycle'.
SELECTION-SCREEN PUSHBUTTON /10(10) but USER-COMMAND abc.
DATA: i_val TYPE vrm_values,
      wa_val TYPE vrm_value.
AT SELECTION-SCREEN OUTPUT.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'P_VALUES'
      values          = i_val
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  IF sy-subrc  0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
AT SELECTION-SCREEN.
  IF sscrfields-ucomm = 'ABC'.
    IF p_key IS INITIAL AND p_text IS INITIAL.
      MESSAGE e001(00) WITH 'Enter both Key and Text to add value'.
    ELSE.
      CLEAR: wa_val.
      wa_val-key = p_key.
      wa_val-text = p_text.
      APPEND wa_val TO i_val.
    ENDIF.
  ENDIF.
INITIALIZATION.
  CLEAR: wa_val.
  wa_val-key = 1.
  wa_val-text = 'Bus'.
  APPEND wa_val TO i_val.
  CLEAR: wa_val.
  wa_val-key = 2.
  wa_val-text = 'Car'.
  APPEND wa_val TO i_val.
  CLEAR: wa_val.
  wa_val-key = 3.
  wa_val-text = 'Van'.
  APPEND wa_val TO i_val.
  CLEAR: wa_val.
  wa_val-key = 4.
  wa_val-text = 'Bicycle'.
  APPEND wa_val TO i_val.
Hope it helps!!
Regards,
Pavan