Internal Table : READ, APPEND, MODIFY AND COLLECT

다음 프로그램을 디버깅하면서 이해할 수 있습니다.

  *&---------------------------------------------------------------------*
*& Report  ZTEST_it_01ERNAL_TABLE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_it_01ERNAL_TABLE.

tables : kna1.

* Header가 있는 internal Table 선언
DATA : BEGIN OF it_01 OCCURS 0,
  vbeln like vbak-vbeln,
  matnr type matnr,
  cnt type I,
  end of it_01.

* 특정 table과 같은 구조로 선언
data : it_02 like kna1 occurs 0 with header line.

* it_01 Table에 data를 append한다.
it_01-vbeln = 'A'.
it_01-matnr = 'AA'.
it_01-cnt = 1.
append it_01.

it_01-matnr = 'AB'.
it_01-cnt = 2.
append it_01.

it_01-vbeln = 'B'.
it_01-matnr = 'BB'.
it_01-cnt = 3.
append it_01.

it_01-vbeln = 'C'.
it_01-matnr = 'CC'.
it_01-cnt = 4.
append it_01.
clear it_01.


write : /'it_01에 값을 확인'.
LOOP AT it_01.
  write : / it_01-vbeln,it_01-matnr,it_01-cnt.
ENDLOOP.
write : /.

write : /'int-vbeln = A 값을 확인'.
LOOP AT it_01 where vbeln = 'A'.
  write : / it_01-vbeln,it_01-matnr,it_01-cnt.
ENDLOOP.
write : /.

write : /'Read commend(with key) 사용 : IF sy-subrc = 0.을 사용하여 data를  확인'.
read table it_01 with key vbeln = 'A'.
  IF sy-subrc = 0.
      write : / it_01-vbeln,it_01-matnr,it_01-cnt.
  ENDIF.
write : /.

write : /'Read commend(index) 사용 : IF sy-subrc = 0.을 사용하여 data를  확인'.
read table it_01 index 3.
  IF sy-subrc = 0.
      write : / it_01-vbeln,it_01-matnr,it_01-cnt.
  ENDIF.
write : /.


* index가 3인 it_01에 insert
write : /'insert후  값을 확인'.
it_01-vbeln = 'D'.
it_01-matnr = 'DD'.
it_01-cnt = 5.
insert it_01 index 3.
  clear it_01.
  LOOP AT it_01.
  write : / it_01-vbeln,it_01-matnr,it_01-cnt.
ENDLOOP.
write : /.

* 기본 적으로 append와 같이 마지막에 추가되는 것은 같으나 이미 저장된 record중에 character type의 field를 비교하여
* 같은 값으로 이미 저장되어 있는 record가 있으면 수자타입의 필드는 기존의 필드에 현재 header에 있는 값은 더한다.

write : /'collect후   값을 확인'.
it_01-vbeln = 'A'.
it_01-matnr = 'AB'.
it_01-cnt = 2.
collect it_01.
  clear it_01.
  LOOP AT it_01.
  write : / it_01-vbeln,it_01-matnr,it_01-cnt.
ENDLOOP.
write : /.


* it_01의 index가 3인 record를 수정한다.
write : /'modify후   값을 확인'.
LOOP AT it_01.
  it_01-vbeln = 'Z'.
*  modify it_01.
  modify it_01 index 3.
  clear it_01.

ENDLOOP.

  LOOP AT it_01.
  write : / it_01-vbeln,it_01-matnr,it_01-cnt.
ENDLOOP.
write : /.

* it_01의 contents를 비운다.
  write : /'refresh 후   값을 확인'.
refresh it_01.
  LOOP AT it_01.
  write : / it_01-vbeln,it_01-matnr,it_01-cnt.
ENDLOOP.
write : /.

write /'end Program'.