[COPY] COLLECT문

  "//__ 계정과목별 합계
  TYPES: BEGIN OF ty_racct,
           racct  TYPE racct,     "-- 계정
           gl_txt TYPE sgtxt,     "-- 계정내역
           d_hsl  TYPE wertv12,   "-- 차변금액
           c_hsl  TYPE wertv12,   "-- 대변금액
           sgtxt  TYPE sgtxt,     "-- 적요
           rwcur  TYPE waers,     "-- 통화
         END OF ty_racct.

  "__ Get Header :: 선택한 데이터
  lt_display = VALUE #( FOR ls_row IN gt_rows WHERE ( rowtype = space )
                      ( CORRESPONDING #( gt_display[ ls_row-index ] ) ) ). .

  "__ Get Items :: 선택한 데이터의 아이템
  lt_items = VALUE #( FOR ls_display IN lt_display
                      FOR ls_i1 IN gt_item_all WHERE ( belnr = ls_display-belnr )
                      ( CORRESPONDING #( ls_i1 ) ) ).

"__ 계정과목별 합계
  lt_racct = VALUE #( FOR GROUPS group OF ls_i2 IN lt_items
                          GROUP BY ( racct = ls_i2-racct )
                            ( REDUCE #( INIT sum_racct TYPE ty_racct
                                FOR line IN GROUP group NEXT sum_racct =
                                  VALUE #( BASE sum_racct
                                                racct  = line-racct
                                                gl_txt = line-txt50
                                                d_hsl  = sum_racct-d_hsl + line-hsl01    "-- 차변금액(원화)
                                                c_hsl  = sum_racct-c_hsl + line-hsl02    "-- 대변금액(원화)
                                                sgtxt  = line-sgtxt
                                                rwcur  = line-rwcur
                                            )
                                       )
                              )
                      ).

Collect Group