ABAP7.4 S4 最新语法之LOOP AT GROUP 内表分类汇总

置顶 SAP北河

已于 2023-08-08 08:34:38 修改

阅读量350

点赞数 1

文章标签： java python

于 2023-08-08 08:33:31 首次发布

本文链接：https://blog.csdn.net/ma_edu/article/details/132158787

版权

REPORT ytest003.

DATA:BEGIN OF ty_it ,
       cl TYPE char1,
       c2 TYPE char1,
       c3 TYPE char1,
       c4 TYPE labst,
     END OF ty_it.

DATA: ls_ty LIKE ty_it,
      lt_ty LIKE TABLE OF ty_it.
DATA: lv_cunt TYPE labst.

ls_ty-cl = 'A'.
ls_ty-c2 = 'B'.
ls_ty-c3 = '1'.
ls_ty-c4 = '10'.
APPEND ls_ty TO lt_ty.

ls_ty-cl = 'A'.
ls_ty-c2 = 'A'.
ls_ty-c3 = '1'.
ls_ty-c4 = '5'.
APPEND ls_ty TO lt_ty.


ls_ty-cl = 'A'.
ls_ty-c2 = 'B'.
ls_ty-c3 = '1'.
ls_ty-c4 = '8'.
APPEND ls_ty TO lt_ty.



ls_ty-cl = 'A'.
ls_ty-c2 = 'A'.
ls_ty-c3 = '1'.
ls_ty-c4 = '5'.
APPEND ls_ty TO lt_ty.


LOOP AT lt_ty INTO ls_ty GROUP BY ( key1 = ls_ty-cl key2 = ls_ty-c2 )                            .
  CLEAR lv_cunt.
  LOOP AT GROUP ls_ty ASSIGNING FIELD-SYMBOL(<fs_key>).
    lv_cunt = lv_cunt + <fs_key>-c4.
  ENDLOOP.
  WRITE:<fs_key>-cl,<fs_key>-c2 ,lv_cunt.
  SKIP.
ENDLOOP.