DATA: BEGIN OF VECTOR OCCURS 10,
X TYPE I,
Y TYPE I,
LENGTH TYPE I,
END OF VECTOR,
BEGIN OF CIRCLE OCCURS 10,
VOLUME TYPE P,
Y TYPE P,
RADIUS TYPE I,
X TYPE I,
END OF CIRCLE.
...
VECTOR-X = 2.
VECTOR-Y = 3.
APPEND VECTOR.
CIRCLE-X = 4.
CIRCLE-Y = 5.
APPEND CIRCLE.
ADD-CORRESPONDING VECTOR TO CIRCLE.
WRITE /.
本文描述了一种处理过程,涉及向量(X=2,Y=3)和圆(X=4,Y=5)的数据结构,包括向量添加到圆的操作以及最后的写入操作。
4603

被折叠的 条评论
为什么被折叠?



