listbox

[Former Member]

Hi,

I could able to select only the first item in the listbox.

How to select the remaining items.

Here is my code

Report z1.

Type-pools : vrm.

data : name type vrm_id,

list type vrm_values,

value like line of list.

parameteres : c(10) as listbox visible length 10.

at selection-screen output.

name = 'c'.

value-key = '1'.

value-text = 'line1'.

append value to list.

value-key = '2'.

value-text = 'line2.

append value to list.

value-key = '3'.

value-text = 'line3.

append value to list.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list

• EXCEPTIONS

• ID_ILLEGAL_NAME = 1

• OTHERS = 2

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

pls help me out...

[Former Member]

Hello,

CHeck the modifed code.

 REPORT Z1.

TYPE-POOLS : VRM.

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

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

AT SELECTION-SCREEN OUTPUT.
  NAME = 'c'.
  VALUE-KEY = '1'.
  VALUE-TEXT = 'line1'.
  APPEND VALUE TO LIST.
  VALUE-KEY = '2'.
  VALUE-TEXT = 'line2'.
  APPEND VALUE TO LIST.
  VALUE-KEY = '3'.
  VALUE-TEXT = 'line3'.
  APPEND VALUE TO LIST.
  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            ID              = NAME
            VALUES          = LIST
       EXCEPTIONS
            ID_ILLEGAL_NAME = 1
            OTHERS          = 2.
  IF SY-SUBRC EQ 0.

    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF. 

cheers,

vasanth

[Former Member]

thanks vasanth..