cobol move语句

Question

假设我有一个02级变量作为cobybook的一部分(测试副本)

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.

我现在只想将2级的2，05级的使用-1移到使用-2。有什么办法可以避免两个移动语句吗？

并使用类似的方法

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

我是新来的科波，我想知道是否能做到这一点。这可以在我的程序中节省大量的move语句.(提高性能)

Answer 1

您的最佳选择是使您的抄写簿使您可以对每个字段有一个“前缀”，然后使用替换来为不同的复制语句提供不同的前缀。然后，您不必为所有字段编写/IN代码，这将使程序和清单更加清晰。

帕克斯辉洛是最简洁的方式来做你想做的事，尽管你想做的原因会很有趣。

我很惊讶没有人提到“参考修改”：

MOVE usage-1 ( 3 : 5 ) TO usage-2 ( 3 : 5)

其中3是数据中的起始位置，5是长度。我更喜欢帕克斯辉洛的定义而不是这个。

一点也不奇怪没人建议改名。

   01  A-TABLE. 
       05  A-T-1 PIC XX. 
       05  A-T-2 PIC X. 
       05  A-T-3 PIC 9. 
       05  A-T-4 PIC XXX. 
       05  A-T-5 PIC X(4). 
       66 A-TABLE-EXTRA RENAMES A-T-2 THRU A-T-3. 
   01  B-TABLE. 
       05  B-T-1 PIC XX. 
       05  B-T-2 PIC X. 
       05  B-T-3 PIC 9. 
       05  B-T-4 PIC XXX. 
       05  B-T-5 PIC X(4). 
       66 B-TABLE-EXTRA RENAMES B-T-2 THRU B-T-3. 

       MOVE A-TABLE-EXTRA TO B-TABLE-EXTRA

和相应的移动一样，这是要避免的(与我的评论相同的原因，加上没有人使用第66级，所以没有人知道他们做什么)。

另一种方法是为您的每个级别01重新定义，但是为什么要这样做呢？