topic Re: listbox in Application Development and Automation Discussions

listbox

Former Member — Fri, 25 Jan 2008 10:48:42 GMT

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

Re: listbox

Former Member — Fri, 25 Jan 2008 10:51:44 GMT

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

Re: listbox

Former Member — Fri, 25 Jan 2008 11:01:07 GMT

thanks vasanth..