*&---------------------------------------------------------------------*
*& Report Z99_60
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_60.

TYPES: BEGIN OF TY_LIST,
         CARRID    TYPE SFLIGHT-CARRID,
         CONNID    TYPE SFLIGHT-CONNID,
         SIZE      TYPE I,
         INDEX     TYPE I,
         GROUP_TAB TYPE TY_FLIGHTS,
       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
                                   LET MEMEMBERS = VALUE TY_FLIGHTS(
                                    FOR MEMBER IN GROUP GROUP ( CORRESPONDING #( MEMBER ) ) )
                                    IN ( CARRID    = GROUP-CARRID
                                         CONNID    = GROUP-CONNID
                                         SIZE      = GROUP-SIZE
                                         INDEX     = GROUP-INDEX
                                         GROUP_TAB = MEMEMBERS    ) ).

CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).
CL_DEMO_OUTPUT=>DISPLAY( LT_LIST[ 1 ]-GROUP_TAB ).