ABAP 연습 코드

*&---------------------------------------------------------------------*
*& Report YPRO
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YPRO.

DATA LV_SOME TYPE CHAR8. "LV : Local Variable

LV_SOME = 'HELLO'.

WRITE lv_some.

TYPES: BEGIN OF WA_SOME, "WA : Working Area

  CARRID TYPE SCARR-carrid,
  CARRNAME TYPE SCARR-carrname,
  CURRCODE TYPE SCARR-currcode,
  URL TYPE SCARR-URL,

  END OF wa_some.

  DATA LS_SOME TYPE wa_some. "LS : Local Structure
  data lt_some like table of ls_some. "LT : Local Table

  ls_some-carrid = 'AAA'.
  ls_some-carrname = 'bbb'.
  ls_some-currcode = 'ccc'.
  ls_some-url = 'ddd'.

append ls_some to lt_some.

  ls_some-carrid = '111'.
  ls_some-carrname = '222'.
  ls_some-currcode = '333'.
  ls_some-url = '444'.

APPEND LS_SOME TO LT_SOME.

 CLEAR LS_SOME.
 
LOOP AT lt_some INTO ls_some.
 IF LS_SOME-CARRID = '111'.
   LS_SOME-URL = 'WWW'.
   
MODIFY LT_SOME FROM ls_some. "수정사항 반영
  
  ENDIF.

ENDLOOP.

  WRITE:ls_some-carrid, ls_some-carrname.