Creating Select options in Abap Webdynpro

Creating select options in Abap Webdynpro

1.Create a webdynpro component and view.

2.Create View container  in view.

3.Include standard  WDR_SELECT_OPTIONS in your component.

4.Include the same in view in which you want to create select options

5. In WDINIT method  Call these methods  Using Code Wizard.

 DATA:
    L_COMPONENTINTERFACE TYPE REF TO IF_WD_COMPONENT_USAGE.

  L_COMPONENTINTERFACE = WD_THIS->WD_CPUSE_SEL_OPT( ).

DATA: L_REF_CMP_USAGE TYPE REF TO IF_WD_COMPONENT_USAGE.

L_REF_CMP_USAGE =   WD_THIS->WD_CPUSE_SEL_OPT( ).
IF L_REF_CMP_USAGE->HAS_ACTIVE_COMPONENT( ) IS INITIAL.
  L_REF_CMP_USAGE->CREATE_COMPONENT( ).
ENDIF.

DATA: L_REF_INTERFACECONTROLLER TYPE REF TO IWCI_WDR_SELECT_OPTIONS .
L_REF_INTERFACECONTROLLER =   WD_THIS->WD_CPIFC_SEL_OPT( ).
  DATA:
    L_R_HELPER_CLASS TYPE REF TO IF_WD_SELECT_OPTIONS.

  L_R_HELPER_CLASS = L_REF_INTERFACECONTROLLER->INIT_SELECTION_SCREEN(
  ).

6.Declare data for Range table

DATA IT_RES TYPE REF TO DATA.

DATA IT_SEL TYPE REF TO DATA.

7.call create range table using PATTERN

CALL METHOD L_R_HELPER_CLASS->CREATE_RANGE_TABLE
  EXPORTING
    I_TYPENAME     = 'VBELN_VA'
*    I_LENGTH       =
*    I_DECIMALS     =
  RECEIVING
    RT_RANGE_TABLE = IT_RES
    .

CALL METHOD L_R_HELPER_CLASS->ADD_SELECTION_FIELD
  EXPORTING
    I_ID                         = 'VBELN_VA'
*    I_WITHIN_BLOCK               = MC_ID_MAIN_BLOCK
*    I_DESCRIPTION                =
*    I_IS_AUTO_DESCRIPTION        = ABAP_TRUE
    IT_RESULT                    = IT_RES
*    I_OBLIGATORY                 = ABAP_FALSE
*    I_COMPLEX_RESTRICTIONS       =
*    I_USE_COMPLEX_RESTRICTION    = ABAP_FALSE
*    I_VALUE_HELP_TYPE            = IF_WD_VALUE_HELP_HANDLER=>CO_PREFIX_NONE

*    I_VALUE_HELP_ID              =
*    I_VALUE_HELP_MODE            =
*    I_VALUE_HELP_STRUCTURE       =
*    I_VALUE_HELP_STRUCTURE_FIELD =
*    I_HELP_REQUEST_HANDLER       =
*    I_LOWER_CASE                 =
*    I_MEMORY_ID                  =
*    I_NO_EXTENSION               = ABAP_FALSE
*    I_NO_INTERVALS               = ABAP_FALSE
*    I_AS_CHECKBOX                = ABAP_FALSE
*    I_AS_DROPDOWN                = ABAP_FALSE
*    IT_VALUE_SET                 =
*    I_READ_ONLY                  = ABAP_FALSE
*    I_DONT_CARE_VALUE            =
    .

CALL METHOD L_R_HELPER_CLASS->SET_GLOBAL_OPTIONS
  EXPORTING
    I_DISPLAY_BTN_CANCEL  = ABAP_FALSE
    I_DISPLAY_BTN_CHECK   = ABAP_FALSE
    I_DISPLAY_BTN_RESET   = ABAP_FALSE
    I_DISPLAY_BTN_EXECUTE = ABAP_FALSE
    .

8. Embeed it in the window