internal table 的一些操作

 *internal table with work area

DATA: BEGIN  OF  LINE,
  COL1 TYPE  I,
  COL2 TYPE  I,
END  OF  LINE.
DATA  ITAB like  LINE  occurs  10.
DO  2  TIMES.
  LINE-COL1 = SY-INDEX.
  LINE-COL2 = SY-INDEX ** 2.
  APPEND  LINE  TO  ITAB.
ENDDO.
LOOP  AT  ITAB INTO  LINE.
  WRITE: / LINE-COL1, LINE-COL2.
ENDLOOP.

 

*internal table with type
types: begin  of  tline,
  col1 type  i,
  col2 type  i,
end  of  tline.
types  tItab type  tline occurs  10.

data: dline type  tline,
      dItab type  tItab.
do  2  times.
  dline-col1 = sy-index.
  dline-col2 = sy-index ** 2.
  append  dline to  dItab.
enddo.
loop  at  dItab into  dline.
  write: / dline-col1, dline-col2.
endloop.

skip.

*internal table without work area
DATA: BEGIN  OF  ITAB2 OCCURS  10,
      COL1 TYPE  I,
      COL2 TYPE  I,
      END  OF  ITAB2.
DO  2  TIMES.
  ITAB2-COL1 = SY-INDEX.
  ITAB2-COL2 = SY-INDEX ** 2.
  APPEND  ITAB2. "新增至内表中
ENDDO.
LOOP  AT  ITAB2. "ITAB2 总共有两个行
  WRITE: / ITAB2-COL1, ITAB2-COL2.
ENDLOOP.

skip.

append  lines  of  dItab from  1  to  1  to  itab2.
LOOP  AT  ITAB2. "ITAB2 总共有4行
  WRITE: / ITAB2-COL1, ITAB2-COL2.
ENDLOOP.

DATA: BEGIN  OF  ITAB3 OCCURS  3,
      COL1(3) TYPE  C,
      COL2 TYPE  I,
      END  OF  ITAB3.
ITAB3-COL1 = 'ABC' . ITAB3-COL2 = 10.
COLLECT  ITAB3.
ITAB3-COL1 = 'XYZ' . ITAB3-COL2 = 20.
COLLECT  ITAB3.
ITAB3-COL1 = 'ABC' . ITAB3-COL2 = 30.
COLLECT  ITAB3. "汇总 COL2 至 COL1=ABC 的元素上
LOOP  AT  ITAB3.
  WRITE: / ITAB3-COL1, ITAB3-COL2.
ENDLOOP.

DATA: BEGIN  OF  line4,
      COL1 TYPE  I,
      COL2 TYPE  I,
      END  OF  line4.
DATA  itab4 LIKE  line4 OCCURS  10  with  header  line.
DO  3  TIMES.
  line4-COL1 = SY-INDEX * 10.
  line4-COL2 = SY-INDEX * 20.
  APPEND  line4 TO  itab4.
ENDDO.
line4-COL1 = 100.
line4-COL2 = 200.
INSERT  line4 INTO  itab4 index  2.  "插入在位置2 之前
LOOP  AT  itab4 INTO  line4.
  WRITE: / SY-TABIX, line4-COL1, line4-COL2. "SY-TABIX 为Table 位置
ENDLOOP.

skip.

LOOP  AT  ITAB4 INTO  LINE4 WHERE  COL1 >= 100.
  WRITE: / SY-TABIX, LINE4-COL1.
ENDLOOP.

skip.
read  table  itab4 into  line4 index  2.
WRITE: / SY-TABIX, LINE4-COL1, LINE4-COL2.

skip.
LINE4-COL1 = 4.
write  / LINE4-COL1.
LINE4-COL2 = 100.
MODIFY  ITAB4 FROM  LINE4 INDEX  2.
read  table  itab4 into  line4 index  2.
WRITE: / SY-TABIX, LINE4-COL1, LINE4-COL2.

skip.
LINE4-COL1 = 10.
MODIFY  ITAB4 FROM  LINE4 INDEX  3  TRANSPORTING  COL1.
read  table  itab4 into  line4 index  3.
WRITE: / SY-TABIX, LINE4-COL1, LINE4-COL2.

skip.
write  'delete internal table use index:' .
delete  ITAB4 index  2.
loop  at  itab4 into  line4.
  write: / line4-col1, line4-col2.
endloop.

skip.
write  'delete internal table by condition.' .
delete  itab4 where  col2 = 40.
loop  at  itab4 into  line4.
  write: / line4-col1, line4-col2.
endloop.

skip.
line4-col1 = 100.
line4-col2 = 400.
append  line4 to  itab4.

line4-col1 = 100.
line4-col2 = 200.
append  line4 to  itab4.

write  'sort internal table' .
*sort itab4 descending by col1 col2.
sort  itab4 by  col1 descending  col2 ascending.
loop  at  itab4 into  line4.
  write: / line4-col1, line4-col2.
endloop.

skip.
write  'calc numeric field sum.' .
LOOP  AT  ITAB4 INTO  LINE4.
  SUM.
ENDLOOP.
WRITE: / LINE4-COL1, LINE4-COL2.

skip.
write  'refresh internal table.' .
clear  ITAB3[].
LOOP  AT  ITAB3.
  WRITE: / ITAB3-COL1, ITAB3-COL2.
ENDLOOP.
free  itab3.

 

span { font-family: "Courier New"; font-size: 10pt; color: rgb(0, 0, 0); background: none repeat scroll 0% 0% rgb(217, 217, 217); }.L0S32 { color: rgb(51, 153, 255); }.L0S33 { color: rgb(77, 166, 25); }.L0S52 { color: rgb(0, 0, 255); } write  'internal table with header line.' .
TYPES: BEGIN  OF  LINE5,
         COL1 TYPE  I,
         COL2 TYPE  I,
       END  OF  LINE5.

DATA  ITAB5 TYPE  HASHED  TABLE  OF  LINE5 WITH  UNIQUE  KEY  COL1
               WITH  HEADER  LINE.

DO  4  TIMES.
  ITAB5-COL1 = SY-INDEX.
  ITAB5-COL2 = SY-INDEX ** 2.
  INSERT  TABLE  ITAB5.
ENDDO.

write  / 'read table.' .
ITAB5-COL1 = 2.
READ  TABLE  ITAB5 FROM  ITAB5.
WRITE: / ITAB5-COL1, ITAB5-COL2.

write  / 'modify table.' .
ITAB5-COL2 = 100.
MODIFY  TABLE  ITAB5.
LOOP  AT  ITAB5.
  WRITE: / ITAB5-COL1, ITAB5-COL2.
ENDLOOP.

write  / 'delete table.' .
ITAB5-COL1 = 4.
DELETE  TABLE  ITAB5.
LOOP  AT  ITAB5.
  WRITE: / ITAB5-COL1, ITAB5-COL2.
ENDLOOP.

skip.
write  'internal table without header line.' .
TYPES: BEGIN  OF  LINE6,
         COL1 TYPE  I,
         COL2 TYPE  I,
       END  OF  LINE6.

DATA: ITAB6 TYPE  HASHED  TABLE  OF  LINE6 WITH  UNIQUE  KEY  COL1,
      WA LIKE  LINE  OF  ITAB6.

DO  4  TIMES.
  WA-COL1 = SY-INDEX.
  WA-COL2 = SY-INDEX ** 2.
  INSERT  WA INTO  TABLE  ITAB6.
ENDDO.

WA-COL1 = 2.
READ  TABLE  ITAB6 FROM  WA INTO  WA.

WA-COL2 = 100.
MODIFY  TABLE  ITAB6 FROM  WA.

WA-COL1 = 4.
DELETE  TABLE  ITAB6 FROM  WA.

LOOP  AT  ITAB6 INTO  WA.
  WRITE: / WA-COL1, WA-COL2.
ENDLOOP.