*&---------------------------------------------------------------------*
*& Report Z99_125
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_125.

DELETE FROM SCARR WHERE CARRID EQ 'KA' OR CARRID EQ 'KK'.

*" ABAP 7.40 릴리즈 이전
DATA LS_LIST TYPE SCARR.
DATA LT_LIST TYPE TABLE OF SCARR.

LS_LIST-MANDT = SY-MANDT.
LS_LIST-CARRID = 'KA'.
LS_LIST-CARRNAME = 'Korea Airline'.
LS_LIST-CURRCODE = 'KRW'.
LS_LIST-URL = 'WWW.KOREAAIRLINE.COM'.
APPEND LS_LIST TO LT_LIST.
CLEAR LS_LIST.

LS_LIST-MANDT = SY-MANDT.
LS_LIST-CARRID = 'KK'.
LS_LIST-CARRNAME = 'ABAP Airline'.
LS_LIST-CURRCODE = 'KRW'.
LS_LIST-URL = 'WWW.ABAPAIRLINE.COM'.
APPEND LS_LIST TO LT_LIST.
CLEAR LS_LIST.

INSERT SCARR FROM TABLE LT_LIST
  ACCEPTING DUPLICATE KEYS.

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

**" ABAP 7.40 릴리즈 이후
*INSERT SCARR FROM TABLE @(
*  VALUE #(
*    ( MANDT = SY-MANDT
*      CARRID = 'KA'
*      CARRNAME = 'Korea Airline'
*      CURRCODE = 'KRW'
*      URL = 'WWW.KOREAAIRLINE.COM' )
*    ( MANDT = SY-MANDT
*      CARRID = 'KK'
*      CARRNAME = 'ABAP Airline'
*      CURRCODE = 'KRW'
*      URL = 'WWW.ABAPAIRLINE.COM' ) ) )
*      ACCEPTING DUPLICATE KEYS.
*
*WRITE: 'SY-SUBRC :', SY-SUBRC,
*       'SY-DBCBT :', SY-DBCNT.