How to fill a dropdown listbox with data from a view?

[Former Member]

Hello I have a problem, I need to fill a dropdown listbox with data from a view?

[former_member188827]

Can you please explain in more detail? Do you need F4 help on selection screen field, or have you created a screen and want values in drop down list of that screen? Please have a look at following demo programs:

DEMO_DYNPRO_F4_HELP_DICTIONARY

DEMO_DYNPRO_F4_HELP_DYNPRO

DEMO_DYNPRO_F4_HELP_MODULE

DEMO_DROPDOWN_LIST_BOX

DEMO_DYNPRO_DROPDOWN_LISTBOX

Regards

[anupam_anand]

Hi Shaban,

You can select data from from a view like any selecting data from any other database table as:

Select * from <view_name> into table i_tab upto 100 rows.

Use the follwoing code for reference:

TYPE-POOLS: vrm.

DATA: gt_list     TYPE vrm_values.

DATA: gwa_list    TYPE vrm_value.

DATA: gt_values   TYPE TABLE OF dynpread,

      gwa_values  TYPE dynpread.

DATA: gv_selected_value(10) TYPE c.

*--------------------------------------------------------------*
*Selection-Screen
*--------------------------------------------------------------*

PARAMETERS: list TYPE c AS LISTBOX VISIBLE LENGTH 20.

*--------------------------------------------------------------*
*At Selection Screen
*--------------------------------------------------------------*

AT SELECTION-SCREEN ON list.

  CLEAR: gwa_values, gt_values.

  REFRESH gt_values.

  gwa_values-fieldname = 'LIST'.

  APPEND gwa_values TO gt_values.

  CALL FUNCTION 'DYNP_VALUES_READ'

    EXPORTING

      dyname             = sy-cprog

      dynumb             = sy-dynnr

      translate_to_upper = 'X'

    TABLES

      dynpfields         = gt_values.

  READ TABLE gt_values INDEX 1 INTO gwa_values.

  IF sy-subrc = 0 AND gwa_values-fieldvalue IS NOT INITIAL.

    READ TABLE gt_list INTO gwa_list

                      WITH KEY key = gwa_values-fieldvalue.

    IF sy-subrc = 0.

      gv_selected_value = gwa_list-text.

    ENDIF.

  ENDIF.

*--------------------------------------------------------------*
*Initialization
*--------------------------------------------------------------*

INITIALIZATION.

  gwa_list-key = '1'.

  gwa_list-text = 'Product'.

  APPEND gwa_list TO gt_list.

  gwa_list-key = '2'.

  gwa_list-text = 'Collection'.

  APPEND gwa_list TO gt_list.

  gwa_list-key = '3'.

  gwa_list-text = 'Color'.

  APPEND gwa_list TO gt_list.

  gwa_list-key = '4'.

  gwa_list-text = 'Count'.

  APPEND gwa_list TO gt_list.

***********************************************************************************************************

*Here you can append your values from the internal table in the field GWA_LIST-TEXT instead of the *hard coded values.

*************************************************************************************************************

  CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING

      id              = 'LIST'

      values          = gt_list

    EXCEPTIONS

      id_illegal_name = 1

      OTHERS          = 2.

*--------------------------------------------------------------*
*Start of Selection
*--------------------------------------------------------------*

START-OF-SELECTION.

  WRITE:/ gv_selected_value.

Incase this doesn't help, can you get more specific about your issue?

Thanks,

Anupam