*&---------------------------------------------------------------------*
*& Report Z99_102
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_102.

SELECT *
  FROM SPFLI
  INTO TABLE @DATA(LT_SPFLI).

SELECT *
  FROM SCARR
  INTO TABLE @DATA(LT_SCARR).

DATA LT_SCARR2 LIKE LT_SCARR.

LOOP AT LT_SCARR INTO DATA(LS_SCARR)
  WHERE CARRID = VALUE #( LT_SPFLI[ CONNID = '0401' ]-CARRID OPTIONAL ).

  APPEND LS_SCARR TO LT_SCARR2.
  CLEAR LS_SCARR.
ENDLOOP.

*" CONNID가 0401인 CARRID를 조건으로 LT_SCARR 인터널 테이블 루프 수행
CL_DEMO_OUTPUT=>DISPLAY( LT_SCARR2 ).


DELETE LT_SCARR
  WHERE CARRID EQ VALUE #( LT_SPFLI[ CONNID = '0017' ]-CARRID OPTIONAL ).

*" LT_SPFLI 인터널 테이블에서 CONNID가 0017인 CARRID 값을 조건으로
*" LT_SCARR 인터널 테이블의 데이터를 삭제함.
CL_DEMO_OUTPUT=>DISPLAY( LT_SCARR ).