Regarding List Box

[Former Member]

Hi,

i have one PERIOD parameter in the selection screen. i want to show 3 year period values via drop down list box in the period parameter. the three year values means current year period values, previous year values and next year values. That is 2007,2008 and 2009 values. i want this dynamically. And also default value should be current year paeriod in the period. That is 11/2008.

Thanks in Advance.

[Former Member]

Hi,

Try like this...

TYPE-POOLS : vrm.
DATA: name  TYPE vrm_id,
      list  TYPE vrm_values,
      value LIKE LINE OF list,
       year(4).
.
PARAMETER : a(4) AS LISTBOX VISIBLE LENGTH 8 OBLIGATORY.

INITIALIZATION.
  WRITE '1' TO a.

AT SELECTION-SCREEN OUTPUT.
  year = sy-datum(4).

  name = 'A'.
  value-key = '1'.

  value-text = year.
  value-key = '1'.
  APPEND value TO list.

  value-text = year + 1.
  value-key = '2'.
  APPEND value TO list.

  value-text = year - 1.
  value-key = '3'.
  APPEND value TO list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.

Regards

Debarshi

[Former Member]

Hi......

REPORT ZLISTBOX. 
type-pools: vrm. 
data: name type vrm_id, 
list type vrm_values, 
value like line of list. 

parameters: ps_date(10) as listbox visible length 10. 
at selection-screen output. 

name = 'PS_DATE'. 
value-key = '1'.
 value-text = '2007'. 
append value to list. 
value-key = '2'. 
value-text = '2008'. 
append value to list. 
call function 'VRM_SET_VALUES' 
exporting 
id = name 
values = list. 
start-of-selection. 

Thanks

Saurabh

[Former Member]

Hello,

Try this i am using the same thing in my program

PARAMETERS :

y_p_flst TYPE char32 AS LISTBOX VISIBLE LENGTH 22

MODIF ID rng. .

*******File formate F4 help

AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_p_flst.

PERFORM y_f_file_frmt_f4.

FORM y_f_file_frmt_f4 .

MOVE: text-212 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

MOVE text-213 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

MOVE text-214 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

MOVE text-215 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'FIELD'

dynpprog = sy-repid

stepl = 1

value = ' '

value_org = 'S'

display = ' '

TABLES

value_tab = y_i_listbox1[]

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

...

ENDIF.

REFRESH y_i_listbox1.

ENDFORM. " y_f_file_frmt_f4

Try this it will work