topic Re: Drop down box error? in Application Development and Automation Discussions

Drop down box error?

Former Member — Wed, 02 Apr 2008 08:43:11 GMT

Please let me know the error where i am with in the below code for displaying the drop down box.

my fields are WS and EMP, but i want to create the drop down box for WS only

TABLES: ZDROP.

DATA ok_code TYPE sy-ucomm.

Global data

TYPES: BEGIN OF type_WS,

WS type ZDROP-WS,

EMPLID type ZDROP-EMPLID,

END OF type_WS.

DATA itab_WS TYPE STANDARD TABLE OF type_WS.

&----

*& Processing Blocks called by the Runtime Environment *

&----

Event Block START-OF-SELECTION

START-OF-SELECTION.

CALL SCREEN 1.

MODULE create_dropdown_box INPUT.

SELECT WS EMPLID

FROM ZDROP

INTO CORRESPONDING FIELDS OF TABLE itab_WS.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'WS'

value_org = 'S'

TABLES

value_tab = itab_WS

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

ENDIF.

ENDMODULE.

&----

*& Module USER_COMMAND_0001 INPUT

&----

text

----

MODULE USER_COMMAND_0001 INPUT.

CASE ok_code.

WHEN 'SELECTED'.

MESSAGE i888(sabapdocu) WITH ZDROP-WS.

ENDCASE.

ENDMODULE. " USER_COMMAND_0001 INPUT

Re: Drop down box error?

Former Member — Wed, 02 Apr 2008 09:31:44 GMT

Hi Venkatesh,

I believe you are referring to demo_dropdown_list_box sample program..

the code looks fine but have you entered any values in the table

ZDROP?

go to se11 -> ZDROP -> display ->see how many entries are there...if there are no entries in the table then....that is your problem...

Pls check,revert and reward if helpful

Regards

Byju

Re: Drop down box error?

Former Member — Wed, 02 Apr 2008 10:17:02 GMT

Hi i am have the entries in the table friend and thks a lot for solving my problems. I have followed the same program given in ABAPDOCU but it is not working.

can you point out my error.

my fields are WS and EMPLID

Re: Drop down box error?

former_member196299 — Wed, 02 Apr 2008 11:26:16 GMT

hi ,

Try using VRM_SET_VALUES function module for your requirement .

Regards,

Ranjita

Re: Drop down box error?

venkat_o — Thu, 03 Apr 2008 16:13:35 GMT

Venkateshwar reddy, Just follow the following procedure to get dropdown on S-S or on screen. To get Drop Drown Box on screen . Follow these steps. 1.Go to T.Code SE51 and Select Laypout for the Screen. 2.Double click on the field for which u want Dropdown box. 3.Then U will see Name ,Text ,DROPDOWN.Click on that and select List Box or ListBox with key . Better to to select first one. 4.Save and Activate ur screen . 5.Enter the following piece of code in the PBO of the screen.(Change for ur requirement). To get Drop Drown Box on Selection-screen for parameter. 1.define parameter.

PARAMETERS: p_drop type pernr-pernr as listbox.

2.Write down the following code under the event

AT SELCTION-SCREEN OUTPUT.

TYPE-POOLS :vrm.
DATA:
  i_natio TYPE vrm_values, "-->Table that is passed through FM vrm_set_values
  w_natio LIKE LINE OF i_natio.
 
DATA: 
BEGIN OF i_t005t OCCURS 0,
    land1 TYPE t005t-land1,
    natio TYPE t005t-natio,
END OF i_t005t.

IF i_t005t[] IS INITIAL.
  SELECT land1 natio
     FROM t005t
       INTO TABLE i_t005t
   WHERE spras = sy-langu.
  IF sy-subrc = 0.
  LOOP AT i_t005t .
      w_natio-key = i_t005t-land1.
      w_natio-text = i_t005t-natio.
      APPEND w_natio TO i_natio.
      CLEAR w_natio.
  ENDLOOP.
  ENDIF.
ENDIF.

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
                       id = 'I_IT0002-NATIO' "-->Field for which dropdown is needed.
                values = i_natio
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.

6.Observe the above code and change as for ur requirement. That demo program also ok . Actuall we use VRM_SET_VALUES function module to get the values into dropdown. I hope that it helps you. Regards, Venkat.O

Re: Drop down box error?

Former Member — Fri, 04 Apr 2008 03:55:09 GMT

Hi i have got the entries in the table...

Re: Drop down box error?

venkat_o — Fri, 04 Apr 2008 05:56:39 GMT

Hi, Has your problem been solved ? Then close the thread . Regards, Venkat.O

Re: Drop down box error?

Former Member — Fri, 04 Apr 2008 07:08:15 GMT

You have to pass the values for the following exporting parameters of FM also

DYNPPROG = sy-repid

DYNPNR = '1000'

DYNPROFIELD = 'WS'

ie,

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'WS'

DYNPPROG = sy-repid

DYNPNR = '1000'

DYNPROFIELD = 'WS'

value_org = 'S'

TABLES

value_tab = itab_WS

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

Edited by: Rengith Skariah on Apr 4, 2008 9:08 AM