*&---------------------------------------------------------------------*
*& Report Z99_140
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_140.

DATA: LT_SBOOK TYPE TABLE OF SBOOK
               WITH NON-UNIQUE SORTED KEY FILTER_KEY
               COMPONENTS CARRID CONNID FORCURKEY.

SELECT *
  FROM SBOOK
  INTO CORRESPONDING FIELDS OF TABLE @LT_SBOOK.

DATA(USD_SUM) = REDUCE S_F_CUR_PR( 
                  INIT SUM TYPE S_F_CUR_PR
                  FOR <FS> IN FILTER #( LT_SBOOK
                                        USING KEY FILTER_KEY
                                        WHERE CARRID    EQ CONV #( 'LH' )
                                          AND CONNID    EQ CONV #( '0400' )
                                          AND FORCURKEY EQ CONV #( 'USD' )  )
                  NEXT SUM += <FS>-FORCURAM ).

CL_DEMO_OUTPUT=>DISPLAY( USD_SUM ).