*&---------------------------------------------------------------------*
*& Report Z99_124
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_124.

DELETE FROM SCARR WHERE CARRID EQ 'KA'.

*" ABAP 7.40 릴리즈 이전
DATA LS_LIST TYPE 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'.

INSERT INTO SCARR VALUES LS_LIST.
*" or
*INSERT SCARR FROM LS_LIST.


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


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