Populating values in dropdown based on values selected in second dropdown.

Question

Hi,
I  have two listboxes on the screen. Based on value chosen in first dropdown, I want to populate the values to be selected in second dropdown. How can i achieve this? I would be glad if anyone can help me out with this requirement.
Thanks,
Ameet

Answer 1

<font color=blue>Hi,
<li> Place 2 input fields on screen.
<li>Set Listbox property as it is shown in the below link.
     <a href="http://2.bp.blogspot.com/_O5f8iAlgdNQ/SmPSPnRa0tI/AAAAAAAAFCQ/wW_URP-ld6o/s1600-h/drop_down-770536.JPG" target="_new">link to dropdown setting</a>
<li>Set function code to first dropdown box to trigger event when you select value from first dropdown box. So that second one is changed.
<li>Declare variable like below in TOP include of the module pool program.
<pre>DATA: g_drop_1 TYPE char10,
      g_drop_2 TYPE char10,
      ucomm    TYPE sy-ucomm.
TYPE-POOLS vrm.
DATA: name  TYPE vrm_id,
      list  TYPE vrm_values,
      value LIKE LINE OF list.</pre>
<li> Use screen flow logic of the screen like below
<pre>"PROCESS BEFORE OUTPUT.
PROCESS BEFORE OUTPUT.
field g_drop_1 MODULE drop_down_1.
field g_drop_2 MODULE drop_down_2.
"PROCESS AFTER INPUT.
PROCESS AFTER INPUT.
field g_drop_1.
field g_drop_2.</pre>
<li>Corresponding code for two drop down boxes.
<pre>&----
*&      Module  DROP_DOWN_1  OUTPUT
MODULE drop_down_1 OUTPUT.
  CLEAR: list[],g_drop_2.
  name = 'G_DROP_1'.
  value-key  = '1'.
  value-text = 'value_1'.
  APPEND value TO list.
  CLEAR  value.
  value-key  = '2'.
  value-text = 'value_2'.
  APPEND value TO list.
  CLEAR  value.
  value-key  = '3'.
  value-text = 'value_3'.
  APPEND value TO list.
  CLEAR  value.
  value-key  = '4'.
  value-text = 'value_4'.
  APPEND value TO list.
  CLEAR  value.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.
ENDMODULE.                 " DROP_DOWN_1  OUTPUT
*&      Module  DROP_DOWN_2  OUTPUT
MODULE drop_down_2 OUTPUT.
  CLEAR list[].
  name = 'G_DROP_2'.
  CASE g_drop_1.
    WHEN 1 OR 2.
      value-key  = '1'.
      value-text = 'text1'.
      APPEND value TO list.
      CLEAR  value.
      value-key  = '2'.
      value-text = 'text2'.
      APPEND value TO list.
      CLEAR  value.
    WHEN 3 OR 4.
      value-key  = '3'.
      value-text = 'text3'.
      APPEND value TO list.
      CLEAR  value.
      value-key  = '4'.
      value-text = 'text4'.
      APPEND value TO list.
      CLEAR  value.
  ENDCASE.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.
ENDMODULE.                 " DROP_DOWN_2  OUTPUT</pre>
Thanks
Venkat.O</font>