在 cobol 中进行文件比较期间 file1 中缺少 EOF 记录答案

【问题标题】：EOF record missing in file1 during file comparison in cobol在 cobol 中进行文件比较期间 file1 中缺少 EOF 记录
【发布时间】：2021-08-02 12:36:26
【问题描述】：

您好，我已经编写了 cobol 文件比较程序。其中 input1 和 input2 都有重复项。我得到了输出文件中的所有键，并且我在输出中缺少 eof-input1 记录。因为我知道我已经正确处理了 EOF 条件。我的情况是我必须比较 file1 和 file2。如果文件 1=文件 2 执行某些过程后需要将输入 1 记录移动到输出。别的如果文件1>文件2 执行某些过程后需要将 file1 记录移动到输出。

在主要段落.. 我一直处理到输入1结束。请提出一些解决方案来获取我的最后一个 input1 记录。

我没有使用任何临时变量来移动我的 IP 数据并进行处理...

谢谢！！

【问题讨论】：

向我们展示您所做的事情 sofr：显示您拥有的代码（格式为ˋcodeˋ）并显示输入和输出。

标签： file record matching eof cobol

【解决方案1】：

               Mainpara.
                    Read file1.
                    Read file2.
                     Process para until end of input1.
                     Close files.
                  
             Process para.

                      If  in1>in2 
                           Perform read file2 until eof2 or in2>=in1
                       End-if.
               If eof2 = 'N'
                    If In2=in1
                         Some process
                     End-if
                   If  In2 >in1
                         Some process
                    End-if
              Else
                  Moves
              End

IP1：111133445 ip1:11347 测试操作：134 所需操作：1345

【讨论】：

我无法发表评论，所以回答了我自己的 Q's.pls chk。
这不是您问题的答案。这是属于您的问题的代码。请编辑您的问题并插入代码和示例输入 1 和 2 *格式化为 code，然后删除此答案。
您能否确保您的问题文本和源代码匹配。例如。在您编写的文本中 if file1 > file2... 但代码显示的 In2 > In1 不一样。我看不懂代码下面的文字 (*lp1:1112245....)。