infopackage里的例程

"BREAK-POINT.

data: l_idx like sy-tabix.

data  : zhigh ( 8 )  type  d , "*************定义高值
       zlow ( 8 )  type D . "*************定义低值
data  : zdaytmp  type d . "*************定义临时
read  table l_t_range  with  key
     fieldname  =  'UPDATE_DATE' .
l_idx  = sy -tabix .
*....
zhigh  = sy -datum .        "*************赋值高值
zdaytmp  = sy -datum  -  90  . "*************减90天
zlow  = zdaytmp .          "*************定义低值

l_t_range -low  = zlow .    "*************赋值
l_t_range -high  = zhigh .  "*************赋值

l_t_range -OPTION  =  'BT' . "*************赋值
l_t_range - sign  =  'I' .    "*************赋值
modify l_t_range  index l_idx .

p_subrc  =  0 .