六狼论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博账号登陆

只需一步,快速开始

搜索
查看: 107|回复: 0

abap loop at first last new end

[复制链接]

升级  89.33%

52

主题

52

主题

52

主题

秀才

Rank: 2

积分
184
 楼主| 发表于 2013-1-19 04:11:01 | 显示全部楼层 |阅读模式
loop 循环里面用可用at进行分组汇总,
at first 用于第一行;
at last 用于最后一行;
at new field 当field字段前面或者他本身的值与上一条记录的值不同时,才执行at endat里面的代码;
at end field 与at new相似,这里只是与下一条记录的值进行比较。

实例代码:
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.
您需要登录后才可以回帖 登录 | 立即注册 新浪微博账号登陆

本版积分规则

快速回复 返回顶部 返回列表