*&---------------------------------------------------------------------*
*& Report Z99_131
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_131.

INSERT INTO SCARR VALUES @(
  VALUE #(
    MANDT    = SY-MANDT
    CARRID   = 'KA'
    CARRNAME = 'Korea Airline'
    CURRCODE = 'KRW'
    URL      = 'WWW.KOREAAIRLINE.COM' ) ).


*" ABAP 7.40 릴리즈 이전
DATA LS_SCARR TYPE SCARR.
LS_SCARR-CARRID   = 'KA'.

DELETE SCARR FROM LS_SCARR.

*"or
DELETE FROM SCARR WHERE CARRID EQ 'KA'.

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

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