Study ABAP About ListBox.

 

REPORT ZZW_LISTBOX                             .

************************************************************************

* Author: Lilo.Zhu

* Date: 04/12/2006

* Description: This is a List Box Sample

* Study KeyWord: (1) TYPE-POOLS: VRM.

*                (2) FUNCTION 'VRM_SET_VALUES'

*

* ======================================================================

* Last Modified Date:

* Modified Log:

*

*

*

************************************************************************

 

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

      LIST TYPE VRM_VALUES,

      VALUE LIKE LINE OF LIST.

 

PARAMETERS:LISTBOX(10) AS LISTBOX VISIBLE LENGTH 20.

 

AT SELECTION-SCREEN OUTPUT.

 

    NAME = 'LISTBOX'.

    VALUE-KEY = '1'.

    VALUE-TEXT = 'LIST VALUE 1'.

    APPEND VALUE TO LIST.

 

    VALUE-KEY = '2'.

    VALUE-TEXT = 'LIST VALUE 2'.

    APPEND VALUE TO LIST.

 

CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING ID = NAME VALUES = LIST.

    START-OF-SELECTION.

    WRITE: / 'PARMETER:',LISTBOX.