*&---------------------------------------------------------------------*
*& Report Z99_132
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_132.

INSERT SCARR FROM TABLE @(
  VALUE #(
    ( MANDT = SY-MANDT
      CARRID = 'KA'
      CARRNAME = 'Korea Airline'
      CURRCODE = 'KRW'
      URL = 'WWW.KOREAAIRLINE.COM' )
    ( MANDT = SY-MANDT
      CARRID = 'EA'
      CARRNAME = 'EASY ABAP Airline'
      CURRCODE = 'KRW'
      URL = 'WWW.EASYABAPAIRLINE.COM' ) ) )
      ACCEPTING DUPLICATE KEYS.



*" ABAP 7.40 릴리즈 이전
DATA LS_SCARR TYPE SCARR.
DATA LT_SCARR TYPE TABLE OF SCARR.

LS_SCARR-CARRID = 'KA'.
APPEND LS_SCARR TO LT_SCARR.
CLEAR LS_SCARR.

LS_SCARR-CARRID = 'EA'.
APPEND LS_SCARR TO LT_SCARR.

DELETE SCARR FROM TABLE LT_SCARR.


WRITE: 'SY-SUBRC :', SY-SUBRC,
       'SY-DBCBT :', SY-DBCNT.

**" ABAP 7.40 릴리즈 이후
*DELETE SCARR FROM TABLE @( VALUE #(
*  ( CARRID = 'KA' )
*  ( CARRID = 'EA' ) ) ).
*
*WRITE: 'SY-SUBRC :', SY-SUBRC,
*       'SY-DBCBT :', SY-DBCNT.