Code: Alles auswählen.
DATA: lr_select_options TYPE REF TO iwci_wdr_select_options,
lr_helper TYPE REF TO if_wd_select_options,
lt_range TYPE REF TO data,
lr_comp_usage TYPE REF TO if_wd_component_usage,
lr_arbpl TYPE REF TO data.
"instantiate the component WDR_SELECT_OPTIONS
lr_comp_usage = wd_this->wd_cpuse_select_options( ).
IF lr_comp_usage->has_active_component( ) IS INITIAL.
lr_comp_usage->create_component( ).
ENDIF.
"call the interface controller method init_selection_screen to get the helper class
lr_select_options = wd_this->wd_cpifc_select_options( ).
lr_helper = lr_select_options->init_selection_screen( ).
"Use the helper class to create a range table for the data element S_CARR_ID
lt_range = lr_helper->create_range_table( i_typename = 'Z_EPS_ARBPL' ).
lr_helper->add_selection_field( i_id = 'Z_EPS_ARBPL'
it_result = lt_range)
i_value_help_type = if_wd_value_help_handler=>co_prefix_searchhelp
i_value_help_id = 'Z_EPS_ARBPL'
).
call METHOD lr_helper->SET_VALUE_OF_PARAMETER_FIELD
EXPORTING
i_id = 'ZEPS_WRK_ID' "Dump!
i_value = '0001'.