AT NEW OF 等语句的用法，例子很好，就转过来了！

设置内表循环触发条件 AT....END AT

该语法为事件控制函数，应用于LOOP循环语句中，用于获取内表的数据变化事件。

想要把这个功能摸清楚，下面这个完整的例子是最佳的学习捷径。

AT FIRST: 循环内表的第一行时触发执行的代码。只执行一次。

AT LAST: 循环内表的最后一行数据时执行代码。即在LOOP里把该执行的都执行完了才执行它。

AT NEW F1: 如果字段F及F的左则全部字段的数据，与上一行数据不一致，则执行代码。 先执行一行，开始判断，如果第二行和第一行值不一样，执行 AT END OF F1;

如果值一样，继续循环AT NEW F1.

AT END OF F1: 如果字段F及F的左则全部字段的数据，与下一行数据不一致时，则执行代码。

AT....End AT语句块内：循环每一行数据时都执行.

看下面的截图的程序和结果就明白了：

*&---------------------------------------------------------------------*

*& Report Z_WUWEI_0017

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT z_wuwei_0017.

DATA: BEGIN OF itab OCCURS 0,

f1 TYPE i,

f2(6) TYPE c,

f3(10) TYPE n,

f4(16) TYPE p DECIMALS 2,

END OF itab.

DATA: sub_tot(10) TYPE p DECIMALS 3.

**--1

itab-f1 = 1.

itab-f2 = 'ONE'.

itab-f3 = 10.

itab-f4 = '1000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 1.

itab-f2 = 'ONE'.

itab-f3 = 20.

itab-f4 = '2000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 1.

itab-f2 = 'ONE'.

itab-f3 = 30.

itab-f4 = '3000.00'.

APPEND itab.

CLEAR itab.

*--2

itab-f1 = 2.

itab-f2 = 'TWO'.

itab-f3 = 10.

itab-f4 = '1000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 2.

itab-f2 = 'TWO'.

itab-f3 = 20.

itab-f4 = '2000.00'.

APPEND itab.

CLEAR itab.

*-- 3

itab-f1 = 3.

itab-f2 = 'THREE'.

itab-f3 = 10.

itab-f4 = '1000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 3.

itab-f2 = 'THREE'.

itab-f3 = 20.

itab-f4 = '2000.00'.

APPEND itab.

CLEAR itab.

SORT itab BY f1.

<img src="http://img.my.csdn.net/uploads/201302/01/1359707150_2322.png" alt="">

LOOP AT itab.

AT FIRST.

WRITE: /35 ' MATERIAL DETAILS:'.

ULINE.

ENDAT.

AT NEW f1.

WRITE: / 'DETAILS OF MATERIAL:' COLOR 7 , itab-f1.

ULINE.

ENDAT.

WRITE: / itab-f1, itab-f2, itab-f3, itab-f4.

sub_tot = sub_tot + itab-f4.

AT END OF f1.

ULINE.

WRITE: / 'SUB TOTAL :' COLOR 3 INVERSE ON, sub_tot COLOR 3 INVERSE ON.

CLEAR sub_tot.

ENDAT.

AT LAST.

SUM.

ULINE.

WRITE: 'SUM:', itab-f4.

ULINE.

ENDAT.

ENDLOOP.