ListBox Problem

43 Views

Hi,

i have the fallowing problem:

I use a listbox in my parameters selection and fill it with 14 values. If i select a value-key greater or equas 10, the selection does not work. The app creates a new line and switches to GR01.

When i remove the user-command statement, the code works. But i need this user-command statement

Can me help anyone ?

REPORT Z_TEST_24.
TYPE-POOLS: vrm.
DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list.
TABLES: sscrfields.
SELECTION-SCREEN BEGIN OF lINE.

SELECTION-SCREEN COMMENT (30) b1_com .

PARAMETERS: ps_parm AS LISTBOX VISIBLE LENGTH 10 USER-COMMAND ABC.

SELECTION-SCREEN END OF lINE.
INITIALIZATION.
name = 'PS_PARM'.
value-key = '21'. value-text = 'GR01'. APPEND value TO list.
value-key = '2'. value-text = 'GR02'. APPEND value TO list.
value-key = '3'. value-text = 'GR03'. APPEND value TO list.
value-key = '4'. value-text = 'GR04'. APPEND value TO list.
value-key = '5'. value-text = 'GR05'. APPEND value TO list.
value-key = '6'. value-text = 'GR06'. APPEND value TO list.
value-key = '7'. value-text = 'GR07'. APPEND value TO list.
value-key = '8'. value-text = 'GR08'. APPEND value TO list.
value-key = '9'. value-text = 'GR09'. APPEND value TO list.
value-key = '10'. value-text = 'GR10'. APPEND value TO list.
value-key = '11'. value-text = 'GR11'. APPEND value TO list.
value-key = '12'. value-text = 'GR12'. APPEND value TO list.
value-key = '13'. value-text = 'GR13'. APPEND value TO list.
value-key = '14'. value-text = 'GR13'. APPEND value TO list.

b1_com = 'Group'.
AT SELECTION-SCREEN OUTPUT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING id = name
values = list.
IF sscrfields-ucomm = 'ABC'.
WRITE '???'.
ENDIF.

START-OF-SELECTION.

WRITE: / 'Parameter:', ps_parm.

Marco