内表带标题行
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L1S32 {
color: #3399FF;
}
.L1S33 {
color: #4DA619;
}
.L1S52 {
color: #0000FF;
}
REPORT YTEST006.
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.78'.
MAN-WEIGHT = 160.
APPEND MAN TO MAN1.
MOVE MAN1[] TO MAN2.
LOOP AT MAN2 INTO MAN.
WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
ENDLOOP.
LOOP AT MAN1.
WRITE:/ MAN1-NAME,MAN1-HIGH,MAN1-WEIGHT.
ENDLOOP.
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.78'.
MAN-WEIGHT = 160.
APPEND MAN TO MAN1.
MOVE MAN1[] TO MAN2.
LOOP AT MAN2 INTO MAN.
WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
ENDLOOP.
LOOP AT MAN1.
WRITE:/ MAN1-NAME,MAN1-HIGH,MAN1-WEIGHT.
ENDLOOP.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/7668253/viewspace-417467/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
