ABAP内表带有标题行

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,             "不带标题行
       man2 LIKE TABLE OF man WITH HEADER LINE."带标题行
man-name = 'Joy'.
man-high = '1.79'.
man-weight = 140.
append man to man2.

man-name = 'Tom'.
man-high = '1.99'.
man-weight = 160.
append man to man2.
"无HeadLine 赋值。
MOVE man2[] to man1.
Loop at man1 into man.
write:/ man-name,man-high,man-weight.
ENDLOOP.

LOOP AT man2 INTO man.
  WRITE:/ man-name,man-high,man-weight.
ENDLOOP.

运行结果：

Joy                              1.79            140.00

Tom                            1.99            160.00

Joy                              1.79            140.00

Tom                             1.99            160.00