• 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

  • 相关阅读:
    产品经理怎么样用图表传达数据信息(多图)
    劣质成本分析(2/3+3/3)
    劣质成本分析(1/3)
    《归来》小诗二首
    减少过程中的浪费(2/2)
    减少过程中的浪费(1/2)
    三种过程分析工具
    必知-网站常用度量指标(2/2)
    必知-网站常用度量指标(1/2)
    产品经理网站数据分析之测量问题现状(四)
  • 原文地址:https://www.cnblogs.com/Sapbruce/p/4155764.html
Copyright © 2020-2023  润新知