*&---------------------------------------------------------------------*
*& Report Z99_129
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_129.

*" ABAP 7.40 릴리즈 이전
DATA LS_SCARR TYPE SCARR.
LS_SCARR-CARRID = 'EA'.
LS_SCARR-CARRNAME = 'E-AIR'.
LS_SCARR-CURRCODE = 'KRW'.
LS_SCARR-URL = 'WWW.E-AIR.COM'.
MODIFY SCARR FROM LS_SCARR.


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


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