*&---------------------------------------------------------------------*
*& Report Z99_62
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_62.

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

DATA(LV_PRICE_SUM) = REDUCE S_PRICE( INIT S TYPE S_PRICE
                                     FOR <FS> IN LT_SFLIGHT WHERE ( CARRID = 'UA' AND
                                                                    CONNID = '3517'   )
                                     NEXT S += <FS>-PRICE ).
CL_DEMO_OUTPUT=>DISPLAY( LV_PRICE_SUM ).