如何解决COBOL-将一个数组复制到另一个数组
如何将数组复制到cobol中的另一个数组?A PIC 9999 occurs 5.
B PIC 9999 occurs 5.
我需要将A复制到B。有人可以帮助我吗?
谢谢大家
解决方法
工作储存
01 AA.
03 A PIC 9999 occurs 5.
01 BB.
03 B PIC 9999 occurs 5.
程序:
MOVE AA TO BB.
HTH!
, 如果您正在寻找循环:
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。