topic Re: selection screen in Application Development and Automation Discussions

selection screen

Former Member — Thu, 14 Feb 2008 11:33:29 GMT

Hi,

I need a drop down list for a parameter having <,>,<=,>=,=.

How to do this.

i know using at selection screen on value-request .

but how to assign these values to parameter.

Re: selection screen

Former Member — Thu, 14 Feb 2008 11:39:01 GMT

TYPE-POOLS: vrm.

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.

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

AT SELECTION-SCREEN OUTPUT.

name = 'P_FRWD'.

value-key = '07'.

value-text = '7 weeks'.

APPEND value TO list.

value-key = '06'.

value-text = '6 weeks'.

APPEND value TO list.

value-key = '05'.

value-text = '5 weeks'.

APPEND value TO list.

value-key = '04'.

value-text = '4 weeks'.

APPEND value TO list.

value-key = '03'.

value-text = '3 weeks'.

APPEND value TO list.

value-key = '02'.

value-text = '2 weeks'.

APPEND value TO list.

value-key = '01'.

value-text = '1 week'.

APPEND value TO list.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = name

VALUES = list.

Regards

Tushar

Re: selection screen

Former Member — Thu, 14 Feb 2008 11:39:26 GMT

Hello,

This is what u wanted.


PARAMETERS: PS_PARM(2) AS LISTBOX VISIBLE LENGTH 10.
TYPE-POOLS: VRM.

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

INITIALIZATION.

  NAME = 'PS_PARM'.
  VALUE-KEY = '1'.

  VALUE-TEXT = '>'.
  APPEND VALUE TO LIST. VALUE-KEY = '2'.

  VALUE-TEXT = '<'.
  APPEND VALUE TO LIST.

  VALUE-TEXT = '<='.
  APPEND VALUE TO LIST.

  VALUE-TEXT = '>='.
  APPEND VALUE TO LIST.

  VALUE-TEXT = '='.
  APPEND VALUE TO LIST.

  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            ID     = NAME
            VALUES = LIST.

Cheers,

Vasanth

Re: selection screen

Former Member — Thu, 14 Feb 2008 11:40:54 GMT

HI.

create one internal table it_VRM ,keep one field in str as char data type.

Append all (<,>,<=,>=,=.)

use FM :VRM_SET_VALUE

pass IT_VRM to FM>

eg:

DATA : BEGIN OF wa,

VRM TYPE char4,

END OF wa,

it_vrm like table of wa.

wa-vrm = '<'.

append wa to it_vrm.

<REMOVED BY MODERATOR>

Jay

Edited by: Jay on Feb 14, 2008 5:16 PM

Edited by: Alvaro Tejada Galindo on Feb 14, 2008 12:28 PM

Re: selection screen

Former Member — Thu, 14 Feb 2008 11:44:12 GMT

Hi Shekar,

at selection-screen

first populate the internal table with the variables < ,> ,.....

Use the function module F4IF_INT_TABLE_VALUE_REQUEST

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = w_retfield

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = w_dynfield

value_org = c_s

TABLES

value_tab = it_t005s

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.