ABAP使用索引插入内表行

DATA:BEGIN OF man,
      NAME(20) TYPE c,
      HIGH TYPE P DECIMALS 2,
      WEIGHT TYPE P DECIMALS 2,
     END OF man.
DATA:MAN1 Like TABLE OF   man.

man-name = 'Joy'.
man-high = '1.79'.
man-weight = 140.
insert man INTO TABLE man1.

man-name = 'Tom'.
man-high = '1.99'.
man-weight = 160.
insert man INTO TABLE man1.

man-name = 'alex'.
man-high = '1.9'.
man-weight = 150.
insert man INTO TABLE man1.

Loop at man1 into man.
write:/ man-name,man-high,man-weight.
ENDLOOP.
man-name = 'alexander'.
man-high = '1.98'.
man-weight = 168.
INSERT man INTO man1 INDEX 2.
uline.
LOOP AT man1 INTO man.
  WRITE:/ man-name,man-high,man-weight.
ENDLOOP.