SAP ABAP 关于 AT NEW /AT LAST / AT END /AT FIRST的用法

64 篇文章 1 订阅

https://blog.csdn.net/yang362046076/article/details/49359115

AT  NEW/END/FIRST/LAST  <f1>
 .........
ENDAT

其中
FIRST 代表内表的第一行时触发
LAST 代表内表的最后一行时触发
NEW 相邻数据行中相同 字段构成一组,循环到该组的开头时触发
END 相邻数据行中相同 字段构成一组 ,在循环到该组的最末时触发

AT FIRST 即循环内表的第一行时触发的代码。只执行一次
AT LAST 即循环内表的最后一行数据时执行代码。即在LOOP里把该执行的都执行完了才执行它。
AT NEW F1 如果字段 F 以及F的左侧的全部字段的数据,与上一行数据不一致,则执行代码。
AT END OF F1 如果字段F以及F的左侧的全部字段的数据,与下一行的数据不一致时,则执行代码。

所以是不用考虑F字段右边的字段内容,所以
在字段F之后系统将默认为 “*” (星号),也就是说f之后的内容不管相同与否,都视为" * "(星号),不将其考虑

一旦进入到 AT NEW/END/FIRST/LAST … ENDAT 块中
当前工作区中的从 往后,(按照在结构中声明的次序)所有的字段的字符类型字段会以 ***来填充,
而数字类型会设置为初始值(具体是固定长度的非数字基本类型设置为
,String 类型会变成empty String )

AT NEW F1:
假设——内表如下:
COL1 COL2 COL3
A A A
A A B
A B C

假设语句为AT NEW COL2 ,
一共会触发两次,并不是一次!首先忽略col3 (col2后面的所有字段的值),它并不会影响事件的触发。
第一次触发是遍历到第一行时,因为第一行col1,col2要和上一行的col1,col2作比较
但是,此时我们只是遍历到第一行,也就是说上一行是不存在的,或者说是空再或者是未初始化的,
也就是说第一行的col1,col2和 “上一行” 的col1,col2并不相同,(一个有数据,一个没数据,当然不同啦)
所以此时会触发at new col2 ,其后面的代码就会执行;

当遍历到第二行 A A B 的时候, 因为 col1 = 第一行的col1 且第二行的col2=第一行的col2,所以不触发 at new col2,继续循环。
第二次触发是遍历到第三行的时候,虽然第3行的col1 = 第二行的col1,但是col2的值为B,不等于第二行的col2,所以会触发AT NEW COL2.

所以同样的例子,对于AT END OF COL2,它也会触发两次,同样忽略col3的值。
第一次触发是遍历到第二行的时候,因为col2的A并不等于其下一行(第3行)的col2的B,所以会触发AT END OF COL2
第二次触发是遍历到最后一行的时候,第三行col1,col2字段要和下一行比较,但是下一行又不存在。

测试代码

TYPE-POOLS: ABAP.
DATA: BEGIN OF IT_DATA OCCURS 0,
        COL1 TYPE C,
        COL2 TYPE C,
        COL3 TYPE C,
      END OF IT_DATA.
DEFINE FILL_DATA.
  IT_DATA-COL1 = '&1'.
  IT_DATA-COL2 = '&2'.
  IT_DATA-COL3 = '&3'.
  APPEND IT_DATA.
  CLEAR IT_DATA.
END-OF-DEFINITION.

FILL_DATA:
           A A A,
           A A A,
           A B A.
*           A A B,
*           A B B,
*           A B C,
*           A B F,
*           A B C,
*           A C C,
*           A C D,
*           A D D,
*           A D G.
SORT IT_DATA BY COL1 ASCENDING
                COL2 ASCENDING.

LOOP AT IT_DATA.
 WRITE:/ '-------------------------'.
      WRITE:  /1(8)'遍历到第',9(1) sy-TABIX,'行',
             IT_DATA-COL1,
             IT_DATA-COL2,
             IT_DATA-COL3.
      WRITE:/ '-------------------------'.
  AT NEW COL2.
    WRITE:/ 'at new col2',
             IT_DATA-COL1,
             IT_DATA-COL2,
             IT_DATA-COL3.
  ENDAT.
*  AT END OF COL2.
*       WRITE:/ 'at END col2',
*             IT_DATA-COL1,
*             IT_DATA-COL2,
*             IT_DATA-COL3.
*  ENDAT.
ENDLOOP.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值