ABAP新语法之LOOP GROUP BY

最新推荐文章于 2024-08-07 13:47:21 发布

SAPmatinal

最新推荐文章于 2024-08-07 13:47:21 发布

阅读量6.4k

点赞数 1

分类专栏： ABAP技术

本文链接：https://blog.csdn.net/SAPmatinal/article/details/81217008

版权

ABAP技术专栏收录该内容

1028 篇文章 136 订阅

订阅专栏

TYPES:
  BEGIN OF ty_customer,
    customer TYPE char10,
    NAME     TYPE char30,
    city     TYPE char30,
    route    TYPE char10,
  END   OF ty_customer.
TYPES: tt_customers TYPE SORTED TABLE OF ty_customer
          WITH UNIQUE KEY customer.
 
TYPES: tt_citys TYPE STANDARD TABLE OF char30 WITH EMPTY KEY.
 
DATA(t_customres) =
VALUE tt_customers(
  ( customer = 'C0001' NAME = 'Test Customer 1' city = 'NY' route = 'R0001' )
  ( customer = 'C0002' NAME = 'Customer 2'      city = 'LA' route = 'R0003' )
  ( customer = 'C0003' NAME = 'Good Customer 3' city = 'DFW' route = 'R0001' )
  ( customer = 'C0004' NAME = 'Best Customer 4' city = 'CH' route = 'R0003' )
  ( customer = 'C0005' NAME = 'So So Customer 5' city = 'NY' route = 'R0001' )
).
 
 
* Simply get the unique Routes, use WITHOUT MEMBERS
LOOP AT t_customres INTO DATA(ls_cust_2)
     GROUP BY  ( route = ls_cust_2-route )
      ASCENDING
      WITHOUT MEMBERS
      REFERENCE INTO DATA(route_group_2).
 
  WRITE: / route_group_2->route.
 
 
ENDLOOP.