IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

使用cobol程序匹配不同文件中的金额


IBM大型机论坛 -> COBOL程式设计
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
比诺兹

新的用户


已加入:2007年5月23日
帖子:26
地点:海得拉巴

发布发表:2007年7月19日,星期四,上午11:41
引用回复

我有两个不同的文件,我需要匹配数量。如果数量匹配,我需要消除记录。
码:

记录号                               File 1                               File 2
 1                                        1000                                 1000
 2                                        1000                                 2000
 3                                        2000                                 3000
 4                                        3000                                 4000
 5                                        3000                                 5000 
 6                                        4000                                 6000
 7                                        4000                                 8000
 8                                        4000                                11000
 9                                        4000
10                                        4000
11                                        4000


在上述金额中,我首先需要比较两个文件中的金额相等,并且需要消除该记录。然后,我需要取剩余的金额并将其相加并找到匹配项。

上面的例子。

1)首先,我将检查第一文件和第二文件中的金额,因为我可以从第一文件中删除1,3,4,6记录,并从第二文件中删除1,2,3,4。

2)接下来我需要从第一文件和第二文件中提取剩余金额。我需要通过在第一文件中添加一个或多个金额与第二文件中的金额相匹配来匹配金额。我不想在第二文件中添加一些金额。

3)如果仍然存在不匹配的金额,则意味着我需要获取第二个文件一个或多个记录以添加并找到与第一个文件的完全匹配。
回到顶部
查看用户资料 发送私信
sandeep1dimri

新的用户


已加入:2006年10月30日
帖子:76

发布发表:2007年7月19日,星期四1:41 pm
引用回复

你好

引用:
1)首先,我将检查第一文件和第二文件中的金额,因为我可以从第一文件中删除1,3,4,6记录,并从第二文件中删除1,2,3,4。

2)接下来我需要从第一文件和第二文件中提取剩余金额。我需要通过在第一文件中添加一个或多个金额与第二文件中的金额相匹配来匹配金额。我不想在第二文件中添加一些金额。

3)如果仍然存在不匹配的金额,则意味着我需要获取第二个文件一个或多个记录以添加并找到与第一个文件的完全匹配。


Query>
1.因此,您只比较数量而没有其他比较的关键?为什么记录6-11没有从第一个文件中删除?
2.然后您需要在第一个文件中做金额加法的排列吗?请详细说明。

请提供要求2和3的示例。

桑迪普
回到顶部
查看用户资料 发送私信
沙丁鱼

活跃用户


加入时间:2006年5月5日
帖子:183
所在地:苏格兰

发布发表:2007年7月19日,星期四2:50 pm
引用回复

是的,我同意,我们需要通过示例详细了解您的“规则”。
也许从规则2和3如何适用于所示示例开始。
回到顶部
查看用户资料 发送私信
比诺兹

新的用户


已加入:2007年5月23日
帖子:26
地点:海得拉巴

发布发表:2007年7月19日,星期四3:11 pm
引用回复

嗨桑迪普,

是的,我有一个键字段存在索偿编号,相同索偿编号不存在,我可能会得到重复的记录。在重复操作中,我需要匹配金额。

为什么我没有从文件1中删除7到11条记录意味着文件2中没有匹配量。文件2仅存在一个4000数量与第一个文件中的5条记录匹配。(以先到先服务为基础)。

对于第二种情况,我可以从上面的示例中获取记录是从第一个文件2,5,7到11个记录。从第二个文件中我将获得5,6,7,8个记录。

我会从第一个文件中添加一个或多个金额,并与第二个文件匹配。

在第二种情况下,我也无法消除任何记录,那么我需要进行第三种情况。

谢谢,
Thanooz。
回到顶部
查看用户资料 发送私信
比诺兹

新的用户


已加入:2007年5月23日
帖子:26
地点:海得拉巴

发布发表:2007年7月19日,星期四3:13 pm
引用回复

嗨桑迪普,

是的。对于第二种情况,我需要进行许可和组合。

谢谢,
Thanooz。
回到顶部
查看用户资料 发送私信
沙丁鱼

活跃用户


加入时间:2006年5月5日
帖子:183
所在地:苏格兰

发布发表:2007年7月19日,星期四,下午3:52
引用回复

只是为了了解,
如果在第一轮淘汰之后,您仍然在文件1中
1000
3000
4000(X5)

并在文件2中
5000
6000
8000
11000

并且您希望将文件1与文件2的组合进行匹配以进一步消除。

例如方法1

从文件2中的第1条剩余记录开始,然后寻找匹配项
5000 =(1000 + 4000)离开
文件1中的3000、4000(x4)不匹配

6000与文件1中剩余的任何排列不匹配

8000 =(4000 + 4000)离开
3000、4000(X2)

11000 =(3000 + 4000 + 4000)

因此所有匹配,除了file2中的6000

或方法2

以file1开头
1000 + 3000没有匹配项
1000 + 3000 + 4000 = 8000
4000 + 4000没有匹配项
4000 + 4000 + 4000没有匹配项

离开
文件1中的4000(x4)和文件2中的5000、6000、11000

那么您是否可以继续进行选项3),即文件2的组合
例如
5000 + 6000没有匹配项
5000 + 6000 + 11000没有匹配项
5000 + 11000 =(4000 + 4000 + 4000 + 4000)
从而
保留文件2中不匹配的6000(与方法1相同的结果)
回到顶部
查看用户资料 发送私信
比诺兹

新的用户


已加入:2007年5月23日
帖子:26
地点:海得拉巴

发布发表:2007年7月19日,星期四,下午4:04
引用回复

你好

您的解释是正确的,它必须像method1一样工作。

在上面的例子中,我给出了一些记录,我不知道file1和file2有多少记录,我必须为方法一编写cobol代码。


谢谢,
Thanooz。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年7月19日,星期四,下午7:45
引用回复

你好,

您要寻找的内容听起来与某些Accounts Reveivable系统中使用的“现金应用程序”算法非常相似。当客户发送付款时,确切付款金额的发票会“匹配”。对于与发票不完全匹配的支票,发票被“分组”,并且如果一组总计与付款相同,则全部由该付款“支付”。如果付款与单个发票不匹配且与“组”不匹配,则通常将付款应用于最早的发票。

这通常是使用代码中的数组来完成的。

我提到所有这些以确保您要执行的操作与我描述的过程相似。如果是这样,您可以在网络上搜索一些针对A / R执行此操作的真实或伪代码,并将其克隆以供使用。
回到顶部
查看用户资料 发送私信
比诺兹

新的用户


已加入:2007年5月23日
帖子:26
地点:海得拉巴

发布发表:2007年7月19日,星期四8:04 pm
引用回复

你好

您是正确的。能否提供任何代码或任何可以提供一些想法的网站。

谢谢,
Thanooz。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年7月19日,星期四,晚上8:12
引用回复

你好,

抱歉,但是我没有代码-当我处理其中的一些代码时,那是在下载源代码之前。

这就是为什么我建议您可以在网络上进行一些搜索的原因-我只是使用“现金应用程序”和“应收款”作为搜索词进行了搜索,并获得了21,000多次匹配。我怀疑其中有您可以使用的东西。
回到顶部
查看用户资料 发送私信
沙丁鱼

活跃用户


加入时间:2006年5月5日
帖子:183
所在地:苏格兰

发布发表:2007年7月19日,星期四,晚上8:20
引用回复

您的商店也极有可能已经在某个地方运行了该算法。
值得一问吗?
回到顶部
查看用户资料 发送私信
比诺兹

新的用户


已加入:2007年5月23日
帖子:26
地点:海得拉巴

发布发表:2007年7月19日,星期四,晚上8:23
引用回复

大家好,

非常感谢您的支持。

谢谢,
Thanooz。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 匹配和不匹配记录使用 DFSORT / ICETOOL 11
该主题已锁定:您无法编辑帖子或回复。 将文件列表从PS复制到另一个... 清单和REXX 11
该主题已锁定:您无法编辑帖子或回复。 将字段名称传递给COBOL程序 COBOL程式设计 10
没有新帖 COBOL性能调整 COBOL程式设计 6
没有新帖 JOINKEYS匹配两个输入文件... DFSORT / ICETOOL 3
搜索我们的论坛:

回到顶部