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

EOF record missing in file1 during file comparison in cobol

提问人:user13766556 提问时间:8/2/2021 更新时间:8/2/2021 访问量:123

问:

嗨,我已经编写了cobol文件比较程序。因为 input1 和 input2 都有重复项。 我得到了输出文件中的所有键,但我在 output.as 中缺少 eof-input1 记录,我知道我已经相应地处理了 EOF 条件。. 我的场景是我必须比较 file1 和 file2。 如果 file1=file2 执行某些过程后,需要将输入 1 条记录移动到输出。 还 如果 file1>file2 执行某些过程后,需要将 file1 记录移动到输出。

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

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

谢谢!!

EOF COBOL 的文件 记录

评论

2赞 phunsoft 8/2/2021
向我们播种你做了什么 sofr:显示你拥有的代码(格式为 ˋcodeˋ)并显示输入和输出。

答:

0赞 user13766556 8/2/2021 #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 防护等级:11347 测试操作:134 所需操作数:1345

评论

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