*&---------------------------------------------------------------------*
*& Report Z99_130
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_130.

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

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

LS_SCARR-CARRID = 'EA'.
LS_SCARR-CARRNAME = 'E-AIR'.
LS_SCARR-CURRCODE = 'KRW'.
LS_SCARR-URL = 'WWW.E-AIR.COM'.
APPEND LS_SCARR TO LT_SCARR.

MODIFY SCARR FROM TABLE LT_SCARR.

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


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