提问人:user13766556 提问时间:8/2/2021 更新时间:8/2/2021 访问量:123
在 cobol 中进行文件比较期间,file1 中缺少 EOF 记录
EOF record missing in file1 during file comparison in cobol
问:
嗨,我已经编写了cobol文件比较程序。因为 input1 和 input2 都有重复项。 我得到了输出文件中的所有键,但我在 output.as 中缺少 eof-input1 记录,我知道我已经相应地处理了 EOF 条件。. 我的场景是我必须比较 file1 和 file2。 如果 file1=file2 执行某些过程后,需要将输入 1 条记录移动到输出。 还 如果 file1>file2 执行某些过程后,需要将 file1 记录移动到输出。
在主要段落中。 我确实处理到输入结束1。 请提出一些解决方案来获取我的最后一个输入1记录。
我没有使用任何临时变量来移动我的 IP 数据并进行处理......
谢谢!!
答:
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....)。
评论