*&---------------------------------------------------------------------*
* & Report zadd
* & Author: XiaoYu
*&---------------------------------------------------------------------*
* & Production date: 2009/08/03
* & Summary: Add-corresponding Handler
*&---------------------------------------------------------------------*
Report add-corresponding.
*&---------------------------------------------------------------------*
* & Add-corresponding rec1 to rec2
*&---------------------------------------------------------------------*
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 /.
The result is as follows: