Biasanya dropdown list digunakan dalam sebuah parameter. Berikut contoh source code penggunaan drop down list dalam paramater.
*&---------------------------------------------------------------------*
*& Report ZTEST_DROPDOWN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_DROPDOWN.
TYPE-POOLS: VRM.
DATA: IT_LIST_OPTION TYPE VRM_VALUES.
DATA: WA_LIST_OPTION TYPE VRM_VALUE.
DATA: IT_LIST TYPE TABLE OF DYNPREAD,
WA_LIST TYPE DYNPREAD.
DATA: V_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: WA_LIST, IT_LIST.
REFRESH IT_LIST.
WA_LIST-FIELDNAME = 'LIST'.
APPEND WA_LIST TO IT_LIST.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-CPROG
DYNUMB = SY-DYNNR
TRANSLATE_TO_UPPER = 'X'
TABLES
DYNPFIELDS = IT_LIST.
READ TABLE IT_LIST INDEX 1 INTO WA_LIST.
IF SY-SUBRC = 0 AND WA_LIST-FIELDVALUE IS NOT INITIAL.
READ TABLE IT_LIST_OPTION INTO WA_LIST_OPTION
WITH KEY KEY = WA_LIST-FIELDVALUE.
IF SY-SUBRC = 0.
V_SELECTED_VALUE = WA_LIST_OPTION-TEXT.
ENDIF.
ENDIF.
*--------------------------------------------------------------*
*Initialization
*--------------------------------------------------------------*
INITIALIZATION.
WA_LIST_OPTION-KEY = '1'.
WA_LIST_OPTION-TEXT = 'Pilihan1'.
APPEND WA_LIST_OPTION TO IT_LIST_OPTION.
WA_LIST_OPTION-KEY = '2'.
WA_LIST_OPTION-TEXT = 'Pilihan2'.
APPEND WA_LIST_OPTION TO IT_LIST_OPTION.
WA_LIST_OPTION-KEY = '3'.
WA_LIST_OPTION-TEXT = 'Pilihan3'.
APPEND WA_LIST_OPTION TO IT_LIST_OPTION.
WA_LIST_OPTION-KEY = '4'.
WA_LIST_OPTION-TEXT = 'Pilihan4'.
APPEND WA_LIST_OPTION TO IT_LIST_OPTION.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'LIST'
VALUES = IT_LIST_OPTION
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2.
*--------------------------------------------------------------*
*Start of Selection
*--------------------------------------------------------------*
START-OF-SELECTION.
WRITE:/ V_SELECTED_VALUE.
Hasil akhirnya adalah sebagai berikut.
Eksekusi program. Selamat Mencoba. :)