ABAP新语法之LOOP GROUP BY

最新推荐文章于 2025-06-20 17:39:03 发布

SAPmatinal

最新推荐文章于 2025-06-20 17:39:03 发布

阅读量6.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： ABAP技术

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/81217008

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

本文展示了一个ABAP编程示例，通过定义数据类型和表格结构来管理客户信息，并使用循环和分组指令来获取唯一路由编号。此过程涉及数据初始化、循环遍历及条件过滤等步骤。

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.