How to populate a listbox (dropdown) based on a selection parameter?

[Former Member]

Hey guys,

I need some sample code or suggestion on how to populate a dropdown field based on a value entered in a parameter and how would i retrieve the value selected from dropdown.

Any help will be appreciated.

Thanks

Nahman

Edited by: Nahman Hussain on Jul 10, 2008 9:16 AM

[Former Member]

Hey guys,

I need some sample code or suggestion on how to populate a dropdown field based on a value entered in a parameter and how would i retrieve the value selected from dropdown.

Any help will be appreciated.

Thanks

Nahman

Edited by: Nahman Hussain on Jul 10, 2008 9:16 AM

[Former Member]

Hello

Look at tr BIBS

[Former Member]

Use the FM VRM_SET_VALUES to set the values for the drop down box and VRM_GET_VALUES to get the values selected.

[Former Member]

Use FM VRM_SET_VALUES check how it is used in where used list of some standard programs.

hope this will help u!

[Former Member]

hi,

plz try with this piece of code.

TYPE-POOLS: vrm.
CONSTANTS: c_status TYPE string VALUE 'G_STATUS',
           c_to_be_sub TYPE string VALUE 'TO BE SUBMITTED',
           c_sub TYPE string VALUE 'SUBMITTED',
           c_chg_needed TYPE string VALUE 'CHANGE NEEDED',
           c_app TYPE string VALUE 'APPROVED'.

* data related to VRM.
DATA: g_name1  TYPE vrm_id,
      g_list1  TYPE vrm_values,
      g_wa_list LIKE LINE OF g_list1,
      g_value_1 LIKE LINE OF g_list1,
      g_status(20) TYPE c.

In PBO .

MODULE f4_scr OUTPUT.


  REFRESH g_list1.
  g_name1 = c_status.
  g_value_1-key = c_to_be_sub.
  g_value_1-text = c_to_be_sub.
  APPEND g_value_1 TO g_list1.

  g_value_1-key = c_sub.
  g_value_1-text = c_sub.
  APPEND g_value_1 TO g_list1.

  g_value_1-key = c_chg_needed.
  g_value_1-text = c_chg_needed.
  APPEND g_value_1 TO g_list1.

  g_value_1-key = c_app.
  g_value_1-text = c_app.
  APPEND g_value_1 TO g_list1.

  IF NOT g_list1 IS INITIAL.
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id     = g_name1
        values = g_list1.
  ENDIF.

ENDMODULE.                 " F4_SCR  OUTPUT

In PAI

MODULE user_command_9000 INPUT.
CLEAR :  g_wa_list.


* function module to get the list box values.

  g_name1 = c_status.
  CALL FUNCTION 'VRM_GET_VALUES'
    EXPORTING
      id           = g_name1
    IMPORTING
      values       = g_list1
    EXCEPTIONS
      id_not_found = 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.

 READ TABLE g_list1 INTO g_wa_list WITH KEY key = g_status.
  IF sy-subrc EQ 0.
    g_status = g_wa_list-text.
  ENDIF.
ENDMODULE.

Hope this helps you.

plz reward if useful.

thanks,

dhanashri.

Edited by: Dhanashri Pawar on Jul 10, 2008 12:05 PM