list box problem

[Former Member]

Hi Guru's

what am I doing wrong here:

TYPE-POOLS: vrm.

PARAMETERS: p_dlvbat TYPE c AS LISTBOX VISIBLE LENGTH 10.
DATA: param   TYPE vrm_id,
      values  TYPE vrm_values,
      value LIKE LINE OF values.

AT SELECTION-SCREEN OUTPUT.

  param = 'test'.

  value-key = 'A'.
  value-text = 'Only display orders that are late'.
  APPEND value TO values.
  value-key = 'B'.
  value-text = 'Bulid your ow text'.
  APPEND value TO values.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = param
      values          = values
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.

[Former Member]

Hi,

In the param variable...pass the selection screen parameter...in the program..

param = 'P_DLVBAT'.

Thanks

Naren

[Former Member]

nope.. no change..

i am finding that tables are filled.. but the FM looks like doesnt work..

Edited by: Ram kumar on Feb 9, 2009 11:24 PM

[former_member195698]

set param to ...

param = 'P_DLVBAT'. **** was slow in submitting the answer...

below is the sample code and its working...

REPORT  ztest .
TYPE-POOLS : vrm.
DATA : it_vrm TYPE vrm_values,
       x_vrm like line of  it_vrm.
 
PARAMETERS : SEL(10) AS LISTBOX VISIBLE LENGTH 10.
 
INITIALIZATION.
 
  x_vrm-key = '1'.
  x_vrm-text = 'display'.
  APPEND x_vrm TO it_vrm.
 
  x_vrm-key = '2'.
  x_vrm-text = 'change'.
  APPEND x_vrm TO it_vrm.
 
  x_vrm-key = '1'.
  x_vrm-text = 'delete'.
  APPEND x_vrm TO it_vrm.
 
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'SEL'
      values          = it_vrm
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.

Edited by: Abhishek Jolly on Feb 9, 2009 11:27 PM

[Former Member]

Hi,

I tried this and it worked for me..I am able to see the list box with the values..

TYPE-POOLS: vrm.

PARAMETERS: p_dlvbat TYPE c AS LISTBOX VISIBLE LENGTH 10.
DATA: param   TYPE vrm_id,
      values  TYPE vrm_values,
      value LIKE LINE OF values.

AT SELECTION-SCREEN OUTPUT.

  param = 'P_DLVBAT'.

  value-key = 'A'.
  value-text = 'Only display orders that are late'.
  APPEND value TO values.
  value-key = 'B'.
  value-text = 'Bulid your ow text'.
  APPEND value TO values.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = param
      values          = values
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.

Thanks

Naren

[Former Member]

caps made the difference..