LOOP循环里进行分组汇总

最新推荐文章于 2025-06-06 18:07:56 发布

離歌淺唱半丗殤

最新推荐文章于 2025-06-06 18:07:56 发布

阅读量1.9k

点赞数

分类专栏： SAP-ABAP 文章标签： ABAP

SAP-ABAP 专栏收录该内容

17 篇文章

订阅专栏

本文介绍ABAP中使用loop循环结合at指令进行数据分组汇总的方法，包括atfirst、atlast、atnewfield及atendfield的使用场景，并通过具体示例展示了如何根据字段变化来标记数据的新起点与终点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

loop 循环里面用可用at进行分组汇总，
at first 用于第一行；
at last 用于最后一行；
at new field 当field字段前面或者他本身的值与上一条记录的值不同时，才执行at endat里面的代码；
at end field 与at new相似，这里只是与下一条记录的值进行比较。

实例代码：

###代码块

``` ABAP

DATA: t1(4) TYPE c, t2 TYPE i.

FIELD-GROUPS: header.
INSERT t2 t1 INTO header.
t1 ='AABB'. t2 = 1. EXTRACT header.
t1 ='BBCC'. t2 = 2. EXTRACT header.
t1 ='AAAA'. t2 = 2. EXTRACT header.
t1 ='AABB'. t2 = 1. EXTRACT header.
t1 ='BBBB'. t2 = 2. EXTRACT header.
t1 ='BBCC'. t2 = 2. EXTRACT header.
t1 ='AAAA'. t2 = 1. EXTRACT header.
t1 ='BBBB'. t2 = 1. EXTRACT header.
t1 ='AAAA'. t2 = 3. EXTRACT header.
t1 ='AABB'. t2 = 1. EXTRACT header.
SORT BY t1 t2.
LOOP.
  AT FIRST.
    WRITE 'Start of LOOP'.
    ULINE.
  ENDAT.
  AT NEW t1.
    WRITE / ' New T1:'.
  ENDAT.
  AT NEW t2.
    WRITE / ' New T2:'.
  ENDAT.
  WRITE: /14 t1, t2.
  AT END OF t2.
    WRITE / 'End of T2'.
  ENDAT.
  AT END OF t1.
    WRITE / 'End of T1'.
  ENDAT.

  AT LAST.
    ULINE.
  ENDAT.
ENDLOOP.

结果如下：