Default values in select options

Hi All,

I had select options in my screen as follows:

select-options:s_f_curr for tcurr-fcurr,

                        s_t_curr for tcurr-fcurr.

I wrote in the INITILIZATION event for populating default values.

INITILIZATION.

Perform def_values.

form def_values.

s_f_curr-sign = 'I'.

s_f_curr-option = 'EQ'.

s_f_curr-low = 'EUR'.

append s_f_curr.

s_f_curr-sign = 'I'.

s_f_curr-option = 'EQ'.

s_f_curr-low = 'BRL'.

append s_f_curr.

endform.

But the problem is when i check the extended syntax check these statement comes under the obsolete statements.

How can we rectify this one.

I tried declared like below

data:ty_f_curr type range of tcurr-fcurr.

But how will write into the perform statement.

I need like subroutine like shown below.

perform def_values changing s_f_curr

                                                 s_t_curr.

form def_values rv_f_curr

                           rv_t_curr.

Inside what i need to write to populate default values

endform.

Can any one help me on this.

Regards

Ram