Bekerja dengan Drop Down List

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. :)