*&---------------------------------------------------------------------*
*& Report Z99_63
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_63.

SELECT *
  FROM SFLIGHT
  INTO TABLE @DATA(LT_SFLIGHT).

DATA(LV_SEATMAX) = REDUCE S_SEATSMAX( INIT MAX TYPE S_SEATSMAX
                                      FOR <FS> IN LT_SFLIGHT WHERE ( CARRID EQ 'UA' )
                                      NEXT MAX = COND #( WHEN <FS>-SEATSMAX > MAX
                                                           THEN <FS>-SEATSMAX
                                                         ELSE MAX ) ).
CL_DEMO_OUTPUT=>DISPLAY( LV_SEATMAX ).