COBOL - 将数组复制到另一个数组

Question

如何在 cobol 中将一个数组复制到另一个数组？

A PIC 9999 occurs 5.
B PIC 9999 occurs 5.

我需要将 A 复制到 B。有人可以帮助我吗？

谢谢大家。

Answer 1

工作存储

01 AA.
   03 A PIC 9999 occurs 5.

01 BB.
   03 B PIC 9999 occurs 5.

程序：

MOVE AA TO BB.

HTH！

Answer 2

如果您正在寻找循环：

01  AA-Length Pic S9(8) Binary value +0.
01  BB-Length Pic S9(8) Binary value +0.
01  II        Pic S9(8) Binary value +0.

...and...

Compute AA-Length = Length of AA / Length of A(1)
Compute BB-Length = Length of BB / Length of B(1)

Perform varying II from 1 by 1
  until II > AA-Length or II > BB-Length

  Move A (II) to B (II)

End-Perform