数据量过大时分页取数

DATA:lv_up TYPE i,
     lv_do TYPE i,
     lv_id TYPE i,
     lv_o  TYPE i,
     lv_n  TYPE i,
     lv_ys TYPE i.

lv_up = 100000.

SELECT COUNT( * ) AS count
  INTO @DATA(p_count)
  FROM bseg.

lv_do = floor( p_count / lv_up ) + 1.

lv_ys = p_count MOD lv_up.

IF lv_ys > lv_up / 2.
 lv_do = lv_do - 1.
ENDIF.

DO lv_do TIMES.
  lv_id = lv_id + 1.

  IF lv_id = lv_do.
    lv_n = p_count.
  ELSE.
    lv_o = ( lv_id - 1 ) * lv_up + 1.
    lv_n = lv_id * lv_up.
  ENDIF.

  SELECT FROM bseg
  FIELDS *
    ORDER BY bukrs,belnr,gjahr,buzei  "必须使用order by，按照此顺序取数
    INTO TABLE @DATA(lt_bseg)
  OFFSET @lv_o
      UP TO @lv_n ROWS.
* 此处做数据处理
  CLear lt_bseg.
ENDDO.