Cobol 移动语句

Question

假设我有一个 02 级变量作为 cobybook (testcopy) 的一部分

02 level-1-var
   05 var-1
   05 var-2
   05 var-3
   05 var-4

我在我的程序中两次使用这个字帖。

01  usage-1.
    copy testcopy.

01  usage-2.
    copy testcopy.

我现在想将 usage-1 的 仅 2 级 05 varibale 移动到 usage-2。有什么办法可以避免 2 个移动语句？

并使用类似

的东西

 MOVE (var-2, var-3) of usage-1   TO 
 (var-2, var-3) of usage-2

我是 cobol 的新手，想知道是否可以这样做。这可以在我的程序中节省很多移动语句。(提高性能)

Answer 1

不，不是在标准 COBOL 中，尽管某些实现可能对这类事情有扩展。如果简洁的代码是您的要求之一，我可能不会选择 COBOL 作为理想的语言:-)

您可能需要分两次完成:

move var-2 of usage-1 to var-2 of usage-2.
move var-3 of usage-1 to var-3 of usage-2.

如果你愿意对你的字帖做一些改变，比如^(a):

02  level-1-var
    05  var-1
    05  var-2-and-3
        09  var-2
        09  var-3
    05  var-4

你可能会发现你可以用:

move var-2-and-3 of usage-1 to var-2-and-3 of usage-2.

---

^(a) 显然，我只是反射(reflect)了您在问题中的内容。您几乎肯定会在该数据上需要 pic 子句(可能还有一些 . 字符)。