ABAP程序中的统计求和

文章转自 http://jiahongguang12.blog.163.com/blog/static/3346657200802101137942/

其实在loop ... endloop 中间，有个AT <LEVEL>,<…>,ENDAT循环. 其中的<LEVEL>包括:

FRIST, LAST, NEW , END OF.这些可以用来进行内表中按某个字段进行分组统计.

FIRST 内 表的第一行

LAST 内 表的最后一 行

NEW <f> 行组 的开头，与 字段 <f> 和 <f> 剩余字段中 的内容相同

END Of <f> 行组 的结尾，与 字段 <f> 和 <f> 剩余字段中的内容相同

AT - ENDAT 块中的语句 块使用这些 行条件代表 预定义的控 制结构。用 户可以使用

它们处理内 表中的控制 断点，而不必使用 编程分支和循环 中所述的控 制语句自己 编程。

在 AT - ENDAT 语句块中， 工作区域没 有用当前表 格行进行填 充。初始化 所有不是标

准关键字部件的字段（ 参见 标识表格行 ）。对于行 条件 FIRST 和 LAST，系统用星号

(*) 改写所有标 准关键字段 。

对于行条 件 NEW <f> 和 END OF <f>，系 统用星号 (*) 改写所有出 现在工作区 域中指定字

段 <f> 右边的标准关键字段。 用户可根据 自己的需求 在 AT - ENDAT 语句块中填 充工作区域 。

DATA: BEGIN OF LINE,

         COL1 TYPE C,

         COL2 TYPE I,

         COL3 TYPE I,

      END OF LINE.

DATA ITAB LIKE LINE OCCURS 10.

LINE-COL1 = 'A'.

DO 3 TIMES.

   LINE-COL2 = SY-INDEX.

   LINE-COL3 = SY-INDEX ** 2.

   APPEND LINE TO ITAB.

ENDDO.

LINE-COL1 = 'B'.

DO 3 TIMES.

   LINE-COL2 = 2 * SY-INDEX.

   LINE-COL3 = ( 2 * SY-INDEX ) ** 2.

   APPEND LINE TO ITAB.

ENDDO.

LOOP AT ITAB INTO LINE.

WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.

   AT END OF COL1.

      SUM.＂按Col1 求和．

      ULINE.

      WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.

      SKIP.

   ENDAT.