SAP ABAP AT NEW 和AT END OF的用法[转]

今天改程序使用AT NEW，结果发现出来一堆******，网上查询后才知道，AT NEW只能应用于内标的第一个字段，而我用的正好不是第一个。

以下是转来的帖子，转自：http://blog.163.com/fuwa_beijing/blog/static/504675142010613215021/

1 使用binary search之前，需要sort，并且sort by ascending（系统默认的顺序也是ascending）。而且read table with key的顺序同sort的顺序相同，否则出错，常会找不到纪录。Delete adjacent duplicates之前一定要sort。

2 关于内部表示和外部表示：调用BAPI和Update DB的时候，一定要使用内部形式（物料号有前导零的时候被认为是内部形式；单位一般也有内部形式外部形式之分）。在se11浏览数据的时候，显示数据的画面是使用内部形式，当detail overview的时候，则是外部形式。

3 使用at new, at first, at last, at end of的时候要注意：loop的时候不能加条件；at和endat之间不能使用loop into的working area。手动实现at new, at end of的时候，需要注意，容易出错，尤其是在at end of的时候。

4 一般情况下，更新数据库需要commit，但debug会自动commit，程序结束也会自动commit。

5 对于选择界面上的select-options，clear s_lifnr[]是指clear body part，clear s_lifnr是指clear header part。一般不直接编辑界面上的select-options。

--------------------------------------------------------------- 

come from : http://blog.csdn.net/CompassButton/archive/2007/03/08/1524491.aspx 

--------------------------------------------------------------- 

1、AT New事件触发说明 

如 AT New f. 

f 是内表的一个字段，当f字段或者f字段左边的字段内容发生变化是该事件后面的语句都会执行。 

TYPES: BEGIN OF COMPANIES_TYPE, 

NAME(30), 

PRODUCT(20), 

SALES TYPE I, 

END OF COMPANIES_TYPE.

DATA: COMPANIES TYPE STANDARD TABLE OF COMPANIES_TYPE WITH 

NON-UNIQUE DEFAULT KEY INITIAL SIZE 20, 

WA_COMPANIES TYPE COMPANIES_TYPE.

...

LOOP AT COMPANIES INTO WA_COMPANIES. 

AT NEW PRODUCT. 

NEW-PAGE. 

WRITE / WA_COMPANIES-NAME WA_COMPANIES-PRODUCT. 

ENDAT. 

WRITE: / WA_COMPANIES-PRODUCT, WA_COMPANIES-SALES. 

AT END OF NAME. 

SUM. 

WRITE: / WA_COMPANIES-NAME, WA_COMPANIES-SALES. 

ENDAT. 

ENDLOOP. 

这个样例当name变化时，AT new事件也会执行。

2、AT New 发生时工作区的字段的值

All character type fields (on the right) are filled with "*" after the current control level key.

All other fields (on the right) are set to their initial values after the current control level key.

AT NEW 和AT END OF的用法 
http://www.sapclub.org/blog/nyf425/archive/2008/01/07/67689.html 

------------------------------------------------------------------- 

使用 AT NEW f. 和 .AT END OF f 时需要注意：

1，f 必须是内表的第一个字段。

2，内表中f 之后的字段的值都会变成 *。

例：

REPORT Z_TEST.

DATA: BEGIN OF TH_LIFNR, 

LIFNR TYPE LFA1-LIFNR, 

ITEM TYPE C, 

END OF TH_LIFNR.

DATA: TD_LIFNR LIKE TABLE OF TH_LIFNR.

SELECT LIFNR FROM EKKO 

INTO TABLE TD_LIFNR 

WHERE EBELN > 4500006374 

AND EBELN < 4500006390.

SORT TD_LIFNR ASCENDING BY LIFNR.

LOOP AT TD_LIFNR INTO TH_LIFNR. 

AT NEW LIFNR. 

WRITE:/10 TH_LIFNR-LIFNR. 

WRITE:/ 'The next is new lifnr.'. 

ENDAT. 

ENDLOOP.

---------------------------------------------------------------- 
http://www.chinavalue.net/Article/Archive/2007/1/18/54443_2.html 

在写abap 的过程中,可能需要统计,求和等那么如何实现呢?其实在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.

AT LAST. 

SUM.＂总求和． 

ULINE. 

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

ENDAT. 

ENDLOOP. 

其输出为： 

A 1 1 

A 2 4 

A 3 9 

________________________________ 

A 6 14

B 2 4 

B 4 16 

B 6 36 

________________________________ 

B 12 56

________________________________ 

* 18 70