*&---------------------------------------------------------------------*
*& Report Z99_128
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_128.

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

LS_SCARR-CARRID = 'KA'.
LS_SCARR-CARRNAME = 'K-AIR'.
LS_SCARR-CURRCODE = 'KRW'.
LS_SCARR-URL = 'WWW.K-AIR.COM'.
APPEND LS_SCARR TO LT_SCARR.
CLEAR LS_SCARR.

LS_SCARR-CARRID = 'KK'.
LS_SCARR-CARRNAME = 'ABAP-AIR'.
LS_SCARR-CURRCODE = 'KRW'.
LS_SCARR-URL = 'WWW.ABAP-AIR.COM'.
APPEND LS_SCARR TO LT_SCARR.
CLEAR LS_SCARR.

UPDATE SCARR FROM TABLE LT_SCARR.

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


**" ABAP 7.40 릴리즈 이후
*UPDATE SCARR FROM TABLE @( VALUE #(
*  ( CARRID   = 'KA'
*    CARRNAME = 'K-AIR'
*    CURRCODE = 'KRW'
*    URL      = 'WWW.K-AIR.COM' )
*
*  ( CARRID   = 'KK'
*    CARRNAME = 'ABAP-AIR'
*    CURRCODE = 'KRW'
*    URL      = 'WWW.ABAP-AIR.COM' ) ) ).
*
*WRITE: 'SY-SUBRC :', SY-SUBRC,
*       'SY-DBCBT :', SY-DBCNT.