*&---------------------------------------------------------------------*
*& Report ZFISRTEST011
*&
*&---------------------------------------------------------------------*
*&
*& 后面备注
*&---------------------------------------------------------------------*
REPORT zfisrtest011.
DATA: BEGIN OF line,
col1 TYPE i,
col2 TYPE i,
col3 TYPE i,
END OF line.
DATA: itab LIKE line OCCURS 0 WITH HEADER LINE.
itab-col1 = 1.
itab-col2 = 1.
itab-col3 = 2.
APPEND itab.
itab-col1 = 1.
itab-col2 = 2.
itab-col3 = 3.
APPEND itab.
itab-col1 = 2.
itab-col2 = 3.
itab-col3 = 4.
APPEND itab.
itab-col1 = 2.
itab-col2 = 4.
itab-col3 = 5.
APPEND itab.
itab-col1 = 2.
itab-col2 = 9.
itab-col3 = 7.
APPEND itab.
SORT itab BY col1.
*LOOP AT itab INTO line.
* AT END OF col1.
* SUM.
* WRITE:/ line-col1, line-col2, line-col3.
* ENDAT.
*ENDLOOP.
*WRITE : / '*******************************'.
LOOP AT itab INTO line.
AT END OF col1 .
SUM.
ULINE.
WRITE:/ line-col1, line-col2, line-col3.
ENDAT.
ENDLOOP.
WRITE : / '*******************************'.
LOOP AT itab INTO line.
AT NEW col2.
SUM.
ULINE.
WRITE:/ line-col1, line-col2, line-col3.
ENDAT.
ENDLOOP.
WRITE : / '*******************************'.
LOOP AT itab INTO line.
AT LAST.
SUM.
ULINE.
WRITE:/ line-col1, line-col2, line-col3.
ENDAT.
ENDLOOP.
备注:在运行(AT END OF col1)或(AT NEW col2)的时候对于内表字段col1 or col2不管类型都按其变化汇总
只有at last 语法汇总内表全部字段时才只有I,P,F类型可以汇总其他的类型都用*代替其值