REPORT YTEST0001.
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 WITH HEADER LINE,
MAN2 LIKE TABLE OF MAN.
MAN-NAME = '张 三 '.
MAN-HIGH = '1.68'.
MAN-WEIGHT = 120.
APPEND MAN TO MAN1.
MAN-NAME = '李四'.
MAN-HIGH = '1.68'.
MAN-WEIGHT = 120.
APPEND MAN TO MAN1.
MOVE MAN1[] TO MAN2.
LOOP AT MAN2 INTO MAN.
WRITE: / MAN-NAME,MAN-HIGH,MAN-WEIGHT.
ENDLOOP.
LOOP AT MAN1."有 表 头 可 以 直 接 loop
WRITE:/ MAN1-NAME,MAN1-HIGH,MAN1-WEIGHT.
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 WITH HEADER LINE,
MAN2 LIKE TABLE OF MAN.
MAN-NAME = '张 三 '.
MAN-HIGH = '1.68'.
MAN-WEIGHT = 120.
APPEND MAN TO MAN1.
MAN-NAME = '李四'.
MAN-HIGH = '1.68'.
MAN-WEIGHT = 120.
APPEND MAN TO MAN1.
MOVE MAN1[] TO MAN2.
LOOP AT MAN2 INTO MAN.
WRITE: / MAN-NAME,MAN-HIGH,MAN-WEIGHT.
ENDLOOP.
LOOP AT MAN1."有 表 头 可 以 直 接 loop
WRITE:/ MAN1-NAME,MAN1-HIGH,MAN1-WEIGHT.
ENDLOOP.
执行后。结果为
张 三 1,68 120,00
李 四 1,68 120,00
张 三 1,68 120,00
李 四 1,68 120,00
其实区别就是有表头的MAN1可以理解为自带了同名的结构体。所以可直接调用。
关于表头还有其它更深入的解释,这是其中一种