Extract Datasets

 

*&---------------------------------------------------------------------*
*& Report  ZTEST20131120_1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST20131120_1.
data: f1 type i,
      f2 type i.

field-groups header.       "字段组定义

insert f1 f2 into header.  "动态生成字段组 header结构

DO  10 TIMES.

  f1 = sy-index.
  f2 = sy-index ** 2.

  extract header.          " 把定义好的字段组填充给extract

ENDDO.

sort descending.

LOOP.                     " 逐行读取字段组

  write: / f1, f2.

ENDLOOP.