REG:drop down list

[Former Member]

hi,

ihave to display drop down list in the selection screen .by default 'on line data' should be present in selection screen.

when i dont select anything frm dropdown list and directly press f8 i have to get on line data.

bu tim not getting like tht in the following code.

but in the following code im getting 2 'onlinedata' values .

Plz see the code below and tell me where is the error .

TYPE-POOLS : VRM.

DATA: param TYPE vrm_id,

values TYPE vrm_values,

value LIKE LINE OF values.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-050.

PARAMETERS: p_name(10) AS LISTBOX VISIBLE LENGTH 15 default 'onlinedata'.

SELECTION-SCREEN END OF BLOCK b3.

AT SELECTION-SCREEN OUTPUT.

param = 'P_NAME'.

value-key = '1'.

value-text = 'onlinedata'.

APPEND value TO values.

value-key = '2'.

value-text = 'PBS archive'.

APPEND value TO values.

value-key = '3'.

value-text = 'BOTH'.

APPEND value TO values.

*

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING id = param

values = values.

start-of-selection.

case p_name.

when '1'.

PERFORM 4100_get_excise.

when '2'.

PERFORM GET_PBSDATA.

when '3'.

PERFORM GET_BOTH.

endcase.

&----

---

*& Form 4100_get_excise

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM 4100_get_excise .

write:/5 'online'.

ENDFORM. " 4100_get_excise

&----

---

*& Form GET_PBSDATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_PBSDATA .

write:/5 'pbsdata'.

ENDFORM. " GET_PBSDATA

&----

---

*& Form GET_BOTH

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_BOTH .

write:/5 'both'.

ENDFORM. " GET_BOTH

[Former Member]

I changed your code.

i changed the default value in the paramters , observe tat.

REPORT  ztest_edder.


TYPE-POOLS : vrm.
DATA: param TYPE vrm_id,
values TYPE vrm_values,
value LIKE LINE OF values.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-050.

PARAMETERS: p_name(10) AS LISTBOX VISIBLE LENGTH 15 DEFAULT '1'
.

SELECTION-SCREEN END OF BLOCK b3.

AT SELECTION-SCREEN OUTPUT.
  param = 'P_NAME'.
  value-key = '1'.
  value-text = 'onlinedata'.
  APPEND value TO values.
  value-key = '2'.
  value-text = 'PBS archive'.
  APPEND value TO values.
  value-key = '3'.
  value-text = 'BOTH'.
  APPEND value TO values.
*
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = param
      values = values.

START-OF-SELECTION.

  CASE p_name.
    WHEN '1'.
      PERFORM 4100_get_excise.
    WHEN '2'.
      PERFORM get_pbsdata.
    WHEN '3'.
      PERFORM get_both.
  ENDCASE.

*&---------------------------------------------------------------------*
*&      Form  4100_get_excise
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM 4100_get_excise .
  WRITE:/5 'online'.
ENDFORM. " 4100_get_excise

*&---------------------------------------------------------------------*
*&      Form  GET_PBSDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_pbsdata .
  WRITE:/5 'pbsdata'.
ENDFORM. " GET_PBSDATA


*&---------------------------------------------------------------------*
*&      Form  GET_BOTH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_both .
  WRITE:/5 'both'.
ENDFORM. " GET_BOTH

[Former Member]

TYPE-POOLS: VRM.

TABLES:MARA.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF LIST,

SEL TYPE C.

PARAMETERS: PS_PARM AS LISTBOX VISIBLE LENGTH 20.

AT SELECTION-SCREEN OUTPUT.

NAME = 'PS_PARM'.

VALUE-KEY = 'A'.

VALUE-TEXT = 'A'.

APPEND VALUE TO LIST.

VALUE-KEY = 'B'.

VALUE-TEXT = 'B'.

APPEND VALUE TO LIST.

VALUE-KEY = 'C'.

VALUE-TEXT = 'C'.

APPEND VALUE TO LIST.

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

START-OF-SELECTION.

WRITE: / 'PARAMETER:', PS_PARM.

reward if helpful,

N.Rekha

[Former Member]

Hey Pavan i am not geting your problem correctly.

let me tell you what i understood.

you hava a selection screen where ur are giving f4 in the form of list box

now you want if u exceute the program if it should not take any values

else it will take the value that you have selected.

correct me please if i am wrong or took ur words otherwise

coz what i see if you dnt give the default value your problem is solved,