Performace optimization in infopackage

Hi,

This code is written in Infopackage data selection level, can any one suggest me better tunned code of this.

Data: next_year(4) type n.
data: l_idx like sy-tabix.
read table l_t_range with key
fieldname = 'CALMONTH'.
l_idx = sy-tabix.

next_year = sy-datum+0(4) + 1.
concatenate next_year sy-datum+4(2) into l_t_range-high.

l_t_range-low = sy-datum+0(6).
l_t_range-option = 'BT'.
l_t_range-sign = 'I'.

modify l_t_range index l_idx.
p_subrc = 0.
endform.