*&---------------------------------------------------------------------*
*& Report Z99_108
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_108.

DATA: BEGIN OF LS_LIST,
        CARRID   TYPE S_CARR_ID,
        CARRNAME TYPE S_CARRNAME,
        CURRCODE TYPE S_CURRCODE,
        URL      TYPE CHAR50,
      END OF LS_LIST,
      LT_LIST LIKE TABLE OF LS_LIST
WITH NON-UNIQUE KEY CARRID.

*" 위 데이터 선언문을 주석 처리하고, 아래 선언문으로 실행하게 되면,
*" key 값이 설정되지 않아 데이터가 DELETE 되지 않는다.
*DATA: BEGIN OF LS_LIST,
*        CARRID   TYPE S_CARR_ID,
*        CARRNAME TYPE S_CARRNAME,
*        CURRCODE TYPE S_CURRCODE,
*        URL      TYPE CHAR50,
*      END OF LS_LIST,
*      LT_LIST LIKE TABLE OF LS_LIST.

SELECT *
  FROM SCARR
  UP TO 5 ROWS
  INTO CORRESPONDING FIELDS OF TABLE @LT_LIST.

*" ABAP 7.40 릴리즈 이전
LS_LIST-CARRID = 'AC'.

DELETE TABLE LT_LIST FROM LS_LIST.

CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).


**" ABAP 7.40 릴리즈 이후
*DELETE TABLE LT_LIST
*  FROM VALUE #( CARRID = 'AC' ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).