parameter Value

[Former Member]

Hello ,

I have a Parameter on selection screen of type Char 12 and is displayed as listbox,

I have used VRM_SET_VALUES to create the dropdown.

but when I select one of the values from this list , paremeter variable does not holds this .

Can any help me to resolve this problem

Thank you

[nabheetscn]

Code as below in initialization pass the values.

PARAMETERS:p_bukrs type bukrs AS LISTBOX VISIBLE LENGTH 10.

gwa_value-key = '1'.
  gwa_value-text = ''.
  APPEND gwa_value TO gt_list.
  gwa_value-key = '2'.
  gwa_value-text = text-t38.
  APPEND gwa_value TO gt_list.
  gwa_value-key = '3'.
  gwa_value-text = text-t39.
  APPEND gwa_value TO gt_list.
  gwa_value-key = '4'.
  gwa_value-text = text-t54.
  APPEND gwa_value TO gt_list.
  gwa_value-key = '5'.
  gwa_value-text = text-t55.
  APPEND gwa_value TO gt_list.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'P_BUKRS'
      values          = gt_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.

Nabh

[Former Member]

Code that I used is ;--

"data declaration

DATA : li_coord TYPE TABLE OF zdcf0t_wg,

ls_coord TYPE zdcf0t_wg,

li_val TYPE vrm_values,

ls_val TYPE LINE OF vrm_values,

lw_wk TYPE zdcf0t_vi-zworking_group,

lw_name TYPE vrm_id.

REFRESH li_coord.

CLEAR lw_wk.

IF pw_wk_grp IS INITIAL.

lw_wk = '%'.

ELSE.

lw_wk = pw_wk_grp.

ENDIF.

REFRESH li_val.

SELECT * FROM zdcf0t_wg INTO TABLE li_coord

WHERE zworking_group LIKE lw_wk.

IF sy-subrc = 0.

LOOP AT li_coord INTO ls_coord.

ls_val-text = ls_coord-parnr.

ls_val-key = sy-tabix.

APPEND ls_val TO li_val.

ENDLOOP.

ENDIF.

CLEAR lw_name .

lw_name = 'P_COORD'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = lw_name

values = li_val

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.

but after selection of value from list box ,

when I read p_coord , it is blank

Why it is blank , I am not able to understand

[nabheetscn]

This code is written in initalization?

Nabheet

[Former Member]

Code that I used is ;--

AT SELECTION-SCREEN OUTPUT

"data declaration

DATA : li_coord TYPE TABLE OF zdcf0t_wg,

ls_coord TYPE zdcf0t_wg,

li_val TYPE vrm_values,

ls_val TYPE LINE OF vrm_values,

lw_wk TYPE zdcf0t_vi-zworking_group,

lw_name TYPE vrm_id.

REFRESH li_coord.

CLEAR lw_wk.

IF pw_wk_grp IS INITIAL.

lw_wk = '%'.

ELSE.

lw_wk = pw_wk_grp.

ENDIF.

REFRESH li_val.

SELECT * FROM zdcf0t_wg INTO TABLE li_coord

WHERE zworking_group LIKE lw_wk.

IF sy-subrc = 0.

LOOP AT li_coord INTO ls_coord.

ls_val-text = ls_coord-parnr.

ls_val-key = sy-tabix.

APPEND ls_val TO li_val.

ENDLOOP.

ENDIF.

CLEAR lw_name .

lw_name = 'P_COORD'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = lw_name

values = li_val

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.

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

AT SELECTION-SCREEN.

IF sy-ucomm = 'COORD'. " function code for this dropdown

PERFORM list_wk_grp USING p_coord. *here p_coord is blank

ENDIF.

but after selection of value from list box ,

when I read p_coord , it is blank

Why it is blank , I am not able to understand

[Former Member]

In AT SELECTION-SCREEN OUTPUT

[nabheetscn]

Put it in initialization

Nabheet

[Former Member]

Not working

[nabheetscn]

Can you please paste your code here complete one with parameter declaration

Nabheet

[abdulbasit]

You should get sy-tabix not empty value.

What do you want to see in p_coord ? parnr or tabix ?

ls_val-text = ls_coord-parnr.

ls_val-key = sy-tabix.

You may also need to change this code block to if you want to get parnr.

ls_val-text = ls_coord-parnr.

ls_val-key = ls_coord-parnr.

Abdulbasit.

[Former Member]

PARAMETERS: p_coord TYPE i_parnr AS LISTBOX

VISIBLE LENGTH 20.

[nabheetscn]

Please paste comple code parameter and other things also.

Nabehet

[nabheetscn]

Please paste comple code parameter and other things also.

Nabehet

[Former Member]

PARAMETERS: p_coord TYPE i_parnr AS LISTBOX

VISIBLE LENGTH 20.

i parnr :- Data Type CHAR Length 12

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

AT SELECTION-SCREEN OUTPUT

"data declaration

DATA : li_coord TYPE TABLE OF zdcf0t_wg,

ls_coord TYPE zdcf0t_wg,

li_val TYPE vrm_values,

ls_val TYPE LINE OF vrm_values,

lw_wk TYPE zdcf0t_vi-zworking_group,

lw_name TYPE vrm_id.

REFRESH li_coord.

CLEAR lw_wk.

IF pw_wk_grp IS INITIAL.

lw_wk = '%'.

ELSE.

lw_wk = pw_wk_grp.

ENDIF.

REFRESH li_val.

SELECT * FROM zdcf0t_wg INTO TABLE li_coord

WHERE zworking_group LIKE lw_wk.

IF sy-subrc = 0.

LOOP AT li_coord INTO ls_coord.

ls_val-text = ls_coord-parnr.

ls_val-key = sy-tabix.

APPEND ls_val TO li_val.

ENDLOOP.

ENDIF.

CLEAR lw_name .

lw_name = 'P_COORD'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = lw_name

values = li_val

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.

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

AT SELECTION-SCREEN.

IF sy-ucomm = 'COORD'. " function code for this dropdown

PERFORM list_wk_grp USING p_coord. *here p_coord is blank

ENDIF.

I want the value of_coord i.e of type i_parnr

[Former Member]

thanks Abdul, it worked

thanks nabheetmadan09 for putting in effort

it was supposed to be

ls_val-key = ls_coord-parnr.

Edited by: Akanksha Taneja on Jan 2, 2012 5:24 PM

[Former Member]

Hi Akanksha,

Please check the below code:-

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF LIST.

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

AT SELECTION-SCREEN OUTPUT.

NAME = 'PS_PARM'.

VALUE-KEY = '1'.

VALUE-TEXT = 'LINE 1'.

APPEND VALUE TO LIST.

VALUE-KEY = '2'.

VALUE-TEXT = 'LINE 2'.

APPEND VALUE TO LIST.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = NAME

VALUES = LIST.

START-OF-SELECTION.

WRITE: / 'PARAMETER:', PS_PARM.

Regards,

Md Ziauddin.