首页 > 代码库 > ABAP - AT END OF 的使用
ABAP - AT END OF 的使用
TYPES: begin of ty_tab ,
num(3) type i,
str(3) type c,
end of ty_tab.
data: gw_tab TYPE ty_tab ,
gt_tab TYPE TABLE OF ty_tab WITH HEADER LINE.
data: gt_out TYPE TABLE OF ty_tab,
gw_out TYPE ty_tab.
gw_tab-num = 100.
gw_tab-str = ‘AAA‘.
append gw_tab to gt_tab.
gw_tab-num = 100.
gw_tab-str = ‘BBB‘.
append gw_tab to gt_tab.
gw_tab-num = 200.
gw_tab-str = ‘AAA‘.
append gw_tab to gt_tab.
gw_tab-num = 200.
gw_tab-str = ‘BBB‘.
append gw_tab to gt_tab.
gw_tab-num = 200.
gw_tab-str = ‘CCC‘.
append gw_tab to gt_tab.
CLEAR gw_tab.
sort gt_tab by num.
loop at gt_tab .
MOVE gt_tab to gw_tab.
at END OF num.
gw_out-num = gw_tab-num.
gw_out-str = gw_tab-str.
APPEND gw_out to gt_out.
endat.
CLEAR gw_tab.
endloop.
LOOP AT gt_out into gw_out.
write:/ gw_out-num,gw_out-str.
ENDLOOP.
使用AT END OF语句,主要是抓取重复字段如num为100的最后一条记录 100 BBB。
本实例定义的structure中 ,字段num在字段str前,这样在使用AT END OF语句后,内表中str会变为***。
在loop循环之前 内表gt_tab中的数据为:
100 AAA
100 BBB
200 AAA
200 BBB
200 CCC
第一次循环,内表gt_tab中的数据为 100 AAA 在执行AT END OF语句后,内表gt_tab中的数据为 100 AAA
第二次循环,内表gt_tab中的数据为 100 BBB 在执行AT END OF语句中,内表gt_tab中的数据为 100 ***,在执行AT END OF语句后,内表gt_tab中的数据为 100 BBB
第三次循环,内表gt_tab中的数据为 200 AAA 在执行AT END OF语句后,内表gt_tab中的数据为 200 AAA
第四次循环,内表gt_tab中的数据为 200 BBB 在执行AT END OF语句后,内表gt_tab中的数据为 200 BBB
第五次循环,内表gt_tab中的数据为 200 CCC 在执行AT END OF语句中,内表gt_tab中的数据为 200 ***,在执行AT END OF语句后,内表gt_tab中的数据为 200 CCC
为了得到我们想要的重复数据的最后一条,需要将内表的数据在执行AT END OF语句前,转移到另一个工作区gw_tab中保存,否则想要的数据中str均为***。
最后得到的数据为:
100 BBB
200 CCC
另外,同理 AT NEW 语句的使用 ,也是如此,本实例将AT END OF num,改为AT NEW num后,最后的结果为:
100 AAA
200 AAA
ABAP - AT END OF 的使用