*&---------------------------------------------------------------------*
*& Report Z99_58
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_58.

TYPES: BEGIN OF TY_LIST,
         CARRID TYPE SFLIGHT-CARRID,
         CONNID TYPE SFLIGHT-CONNID,
         SIZE   TYPE I,
         INDEX  TYPE I,
       END OF TY_LIST,
       TY_T_LIST TYPE TABLE OF TY_LIST WITH EMPTY KEY.

SELECT *
  FROM SFLIGHT
  WHERE CARRID IN ('AA', 'LH')
  INTO TABLE @DATA(LT_SFLIGHT).

DATA(LT_LIST) = VALUE TY_T_LIST( FOR GROUPS GROUP OF WA IN LT_SFLIGHT
                                 GROUP BY ( CARRID = WA-CARRID
                                            CONNID = WA-CONNID
                                            SIZE   = GROUP SIZE
                                            INDEX  = GROUP INDEX )
                                            DESCENDING
                                            ( CORRESPONDING #( GROUP ) ) ).

CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).