*&---------------------------------------------------------------------*
*& Report Z99_64
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_64.

*" COLLECT
TYPES: BEGIN OF TY_LIST,
         CARRID TYPE SFLIGHT-CARRID,
         CONNID TYPE SFLIGHT-CONNID,
         PRICE  TYPE SFLIGHT-PRICE,
       END OF TY_LIST,
       TY_T_LIST TYPE TABLE OF TY_LIST
                 WITH NON-UNIQUE SORTED KEY ID
                 COMPONENTS CARRID CONNID.

DATA:
  LS_LIST    TYPE TY_LIST,
  LT_LIST    TYPE TY_T_LIST,
  LS_SFLIGHT TYPE SFLIGHT,
  LT_SFLIGHT TYPE TABLE OF SFLIGHT.

SELECT *
  FROM SFLIGHT
  INTO CORRESPONDING FIELDS OF TABLE LT_SFLIGHT
  ORDER BY CARRID CONNID.

LOOP AT LT_SFLIGHT INTO LS_SFLIGHT.

  MOVE-CORRESPONDING LS_SFLIGHT TO LS_LIST.
  COLLECT LS_LIST INTO LT_LIST.
  CLEAR LS_LIST.

ENDLOOP.

CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).


**" REDUCE
*TYPES: BEGIN OF TY_LIST,
*         CARRID TYPE SFLIGHT-CARRID,
*         CONNID TYPE SFLIGHT-CONNID,
*         PRICE  TYPE SFLIGHT-PRICE,
*       END OF TY_LIST,
*       TY_T_LIST TYPE TABLE OF TY_LIST
*                 WITH EMPTY KEY.
*
*
*SELECT *
*  FROM SFLIGHT
*  ORDER BY CARRID, CONNID
*  INTO TABLE @DATA(LT_SFLIGHT).
*
*DATA(LT_LIST) = VALUE TY_T_LIST(
*  FOR GROUPS GROUP OF <FS> IN LT_SFLIGHT
*    GROUP BY ( CARRID = <FS>-CARRID
*               CONNID = <FS>-CONNID )
*               ASCENDING
*
*    LET SUM = REDUCE S_PRICE(
*        INIT S TYPE S_PRICE
*        FOR <MEM> IN GROUP GROUP
*        NEXT S = S + <MEM>-PRICE )
*
*     IN ( CARRID = GROUP-CARRID
*          CONNID = GROUP-CONNID
*          PRICE  = SUM ) ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).