Demonstrates how to display values as an SAP dropdown listbox.

 *$***********************************************************
*$ Program name: ZLISTBOX                                   *
*$ Author: James Zeng ([e-mail])             *
*$ Date: Dec-24-2009                                        *
*$ Program Description: Demonstrates how to display values  *
*$                      as an SAP dropdown listbox          *
*$***********************************************************


REPORT ZLISTBOX.

tables: SSCRFIELDS.

types: begin of t_ekko,
  ebeln type ekko-ebeln,
  end of t_ekko.

data: it_ekko TYPE STANDARD TABLE OF t_ekko,
      wa_ekko like line of it_ekko,
      w_char10 type c LENGTH 10.

TYPE-POOLS: VRM.
DATA: NAME  TYPE VRM_ID,
      LIST  TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST.


PARAMETERS: P_PARM LIKE W_CHAR10  AS LISTBOX  VISIBLE LENGTH 11 USER-COMMAND fcode.
" The additons 'USER-COMMAND' AND 'LENGTH' CANNOT BE USED TOGETHER.


AT SELECTION-SCREEN.
 case SSCRFIELDS-ucomm.
   WHEN 'FCODE'.

     MESSAGE i888(sabapdocu) with 'The selected Value is: ' p_parm.

 endcase.


*********************************************************
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.

  SELECT ebeln
   up to 10 rows
    from ekko
    into table it_ekko.

  loop at it_ekko into wa_ekko.
    VALUE-KEY =  wa_ekko-ebeln.
    VALUE-TEXT = wa_ekko-ebeln.
    APPEND VALUE TO LIST.
  endloop.

  NAME = 'P_PARM'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = NAME
      VALUES = LIST.

********************************************************
*START-OF-SELECTION.
START-OF-SELECTION.
  WRITE: / 'SELECTED VALUE KEY:', P_PARM.