*&---------------------------------------------------------------------*
*& Report ZADD
*& 作成者：張玉剛
*&---------------------------------------------------------------------*
*& 作成日 :2009/08/03
*& 処理概要:ADD-CORRESPONDINGの使い方
*&---------------------------------------------------------------------*
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 /.
结果如下