dropdown list on screen

[Former Member]

Hi All,

Could anyone help me please?

I wants to create a dropdown list on screen.

Could anyone help please?

[aidaj_hilton]

You would need to create a search help for the field that you want the drop down list for. Search helps are created using transaction SE11.

Jill

[hymavathi_oruganti]

call fn module

VRM_SET_VALUES.

[Former Member]

Hi,

Check the following code:

REPORT ZSamples.

Tables : hrp1000, pa0001.

TYPE-POOLS : VRM.

DATA: LIST TYPE vrm_values,

value LIKE LINE OF list.

DATA: BEGIN OF itab_list OCCURS 0,

kode_divisi(3),

nama_divisi like hrp1000-mc_stext,

END OF itab_list.

DATA :

KODE_DIVISI like hrp1000-mc_short,

NAMA_DIVISI like hrp1000-mc_stext.

RANGES : RDIVISI FOR PA0001-WERKS.

SELECTION-SCREEN BEGIN OF BLOCK PARAMETER WITH FRAME

TITLE TEXT-001.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (15) TEXT-003.

SELECTION-SCREEN POSITION 24.

PARAMETERS PDIVISI

LIKE HRP1000-MC_SHORT AS LISTBOX VISIBLE LENGTH

40.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK PARAMETER.

INITIALIZATION.

MOVE 'D' TO PNPTIMED.

IF LIST[] IS INITIAL.

CLEAR HRP1000.

SELECT MC_SHORT MC_STEXT

INTO (KODE_DIVISI, NAMA_DIVISI)

FROM HRP1000

WHERE OTYPE EQ 'Z4'

AND PLVAR EQ '02'

AND ISTAT EQ '1'.

IF SY-SUBRC EQ 0.

MOVE :

KODE_DIVISI+3(3) TO ITAB_LIST-kode_divisi,

NAMA_DIVISI TO ITAB_LIST-NAMA_DIVISI.

APPEND ITAB_LIST.

ENDIF.

ENDSELECT.

sort itab_list by nama_divisi ascending.

LOOP AT itab_list.

MOVE:

itab_list-KODE_DIVISI TO value-key,

itab_list-NAMA_DIVISI TO value-text.

APPEND value TO LIST.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'PDIVISI'

values = list.

ENDIF.

START-OF-SELECTION.

.....................

-

---

Message was edited by: Gayathri Hariharan

[Former Member]

Thanks a lot Gayathri Hariharan.

[Former Member]

Hi,

check this demo program

<b>DEMO_DROPDOWN_LIST_BOX

DEMO_DYNPRO_DROPDOWN_LISTBOX</b>

check this code also..

REPORT  ZTEST_CODE_VRM.

TYPE-POOLS: VRM.

TYPES: NAME TYPE VRM_VALUE-TEXT.
DATA: V_VBELN LIKE VBAK-VBELN.
DATA: IT_VALUES TYPE STANDARD TABLE OF VRM_VALUE.
DATA: WA TYPE VRM_VALUE.
TABLES: KNA1.

SELECT-OPTIONS: S_VBELN FOR V_VBELN.
PARAMETERS: P_KUNNR AS CHECKBOX USER-COMMAND ABC.
PARAMETERS: P_CHK1 AS CHECKBOX USER-COMMAND ABC.
PARAMETERS: P_KUNNR1 TYPE NAME AS LISTBOX VISIBLE LENGTH 30.

INITIALIZATION.
  S_VBELN-LOW = '123'.
  APPEND S_VBELN.

  WA-KEY = '1'.
  WA-TEXT = 'One'.
  APPEND WA TO IT_VALUES.
  CLEAR WA.

  WA-KEY = '2'.
  WA-TEXT = 'Two'.
  APPEND WA TO IT_VALUES.
  CLEAR WA.
  READ TABLE IT_VALUES INTO WA INDEX 1.
  P_KUNNR1 = WA-KEY.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = 'P_KUNNR1'
      VALUES          = IT_VALUES
    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.
  CLEAR S_VBELN.
  REFRESH S_VBELN.
  S_VBELN-LOW = '456'.
  APPEND S_VBELN.


AT SELECTION-SCREEN ON P_KUNNR.
* This event should fire only only for parameters not for select options
  P_KUNNR = 'X'.

*
AT SELECTION-SCREEN OUTPUT.

  IF P_KUNNR = 'X'.
    P_KUNNR = ' '.
  ENDIF.
  IF P_CHK1 = ' '.
    P_CHK1 = 'X'.
  ELSE.
    P_CHK1 = ' '.
  ENDIF.

Regards

vijay

[Former Member]

thanks vijay

[Former Member]

Hi jagmohan,

1. FM VRM_SET_VALUES

2.

REPORT abc.

TYPE-POOLS : vrm.

DATA : v TYPE vrm_values.

DATA : vw LIKE LINE OF v.

PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.

INITIALIZATION.

vw-key = '1'.

vw-text = 'Jan'.

APPEND vw TO v.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'A'

values = v

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

a = '1'.

regards,

amit m.

[Former Member]

hi,

this link may be usefull to u,,

http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbabe435c111d1829f0000e829fbfe/frameset.htm

regards,

padma.

[Former Member]

Hello Jaganmohan,

If u have report in which u want this feature then find out a search help related to the field and attach it.

select-options: xyz for <abc> matchcode object <mobj>. This <mobj> will display the list.

It is module pool...

U can attach the matchcoe to the field while giving the attributes or u can put it in flow logic if u don't have any specific search helps to help using

PROCESS on VALUE-REQUEST.

FIELD <abc> MODULE <xyz>.

[Former Member]

Hi Jagan,

You need to create a search help for the field that you want the drop down list for. Search helps are created using transaction SE11.

And in the code u have to include the Search help as :

Model like zacsproduct-product_model "matchcode object

zmodel.

-where "zmodel" is the search help created by the programmer.

Regards,

Anuradha.B

[Former Member]

HI

THE FUNCTION MODULE <u>VRM_SET_VALUES</u> IS USED TO CREATE A DROPDOWN LIST ON SCREEN.

YOU CAN GET MORE DETAILS AND SAMPLE PROGRAM FROM THE LINK <a href="http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbabe435c111d1829f0000e829fbfe/content.htm">http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbabe435c111d1829f0000e829fbfe/content.htm</a>

REGARDS

ANOOP

[Former Member]

thanks all