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

一旦满足IF语句,控制就应该出现


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

新的用户


已加入:2007年11月30日
帖子:28
地点:迈索尔

发布发表:2008年3月11日,星期二,下午5:39
引用回复

嗨,朋友们,

4020-NEW-RECORD-PARA。
将xxxx-yyy-NBR移动到WS-xxxx-yyy-NBR-SRT
将xxxx-yyyy-CD移动到WS-xxxxx-yyyy-CD-SRT

阅读zzzzzSORT
结束时继续
表现不佳4020-COMPARE-KEY-PARA
结束阅读。
4020-COMPARE-KEY-PARA。
如果xxxxx-DLR-KEY与WS-xxxxx-SRT-KEY相等
执行4030-UPDATE-DATE-PARA。

一旦满足IF语句(即在执行4030-UPDATE-DATE-PARA之后),控制就应该出现。

指导我该怎么做。
回到顶部
查看用户资料 发送私信
Craq Giegerich

高级会员


加入时间:2007年5月19日
帖子:1512
地点:美国弗吉尼亚

发布发表:2008年3月11日,星期二,下午6:07
引用回复

如果不满意,您想怎么办?
回到顶部
查看用户资料 发送私信
jpraveenreddy

新的用户


已加入:2007年11月30日
帖子:28
地点:迈索尔

发布发表:2008年3月11日,星期二,下午6:14
引用回复

根据我得到的信息,这种情况不会发生。
回到顶部
查看用户资料 发送私信
Craq Giegerich

高级会员


加入时间:2007年5月19日
帖子:1512
地点:美国弗吉尼亚

发布发表:2008年3月11日,星期二,下午6:18
引用回复

jpraveenreddy写道:
根据我得到的信息,这种情况不会发生。


那为什么要有中频呢?
回到顶部
查看用户资料 发送私信
jpraveenreddy

新的用户


已加入:2007年11月30日
帖子:28
地点:迈索尔

发布发表:2008年3月11日,星期二,下午6:26
引用回复

引用:
如果xxxxx-DLR-KEY与WS-xxxxx-SRT-KEY相等


我必须比较来自不同文件的这两个字段,如果满足条件,则必须填充字段。

有什么办法吗?
回到顶部
查看用户资料 发送私信
Craq Giegerich

高级会员


加入时间:2007年5月19日
帖子:1512
地点:美国弗吉尼亚

发布发表:2008年3月11日,星期二,下午6:42
引用回复

如果不满足if,则程序流将转到IF之后的语句;如果满足if,则将执行4030-UPDATE-DATE-PARA。
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2008年3月11日,星期二,9:59 pm
引用回复

jpraveenreddy写道:
4020-COMPARE-KEY-PARA。
如果xxxxx-DLR-KEY与WS-xxxxx-SRT-KEY相等
执行4030-UPDATE-DATE-PARA。
你好

这样,如果将在4030-para之后执行任何这样的语句,则控制将转到COBOL程序的下一个可执行语句。您可以使用EVALUATE,但EVALUTE的范围将持续到下一次WHEN为止,所有内容将在WHEN之间执行。

嗯...我确定你没有在寻找这个答案,所以显示更多的代码&关于“情况”的更多解释可能会带来更好的建议。祝好运..
回到顶部
查看用户资料 发送私信
jpraveenreddy

新的用户


已加入:2007年11月30日
帖子:28
地点:迈索尔

发布发表:2008年3月12日,星期三,上​​午7:46
引用回复

这里有更多的解释:
这个
引用:
阅读zzzzzSORT
是一个平面文件(PS)。

我正在阅读
引用:
xxxxx-DLR-KEY
从上面的文件。

我在读
引用:
WS-xxxxx-SRT-KEY
从VSAM文件。

如果钥匙
引用:
WS-xxxxx-SRT-KEY
存在于PS中,我必须执行
引用:
4030-UPDATE-DATE-PARA
.

因此,一旦找到匹配的键,就应该停止阅读PS。

否则,这将陷入无限循环(我认为,由于执行JCL时S322异常终止,如果我做错了,请更正我)。
回到顶部
查看用户资料 发送私信
jpraveenreddy

新的用户


已加入:2007年11月30日
帖子:28
地点:迈索尔

发布发表:2008年3月12日,星期三,下午3:37
引用回复

没有办法吗? icon_cry.gif
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2008年3月13日,星期四,上午12:19
引用回复

你好,

引用:
没有办法吗?
当然有。 。

为了获得有用的答复,您需要更清楚地说明您的要求。

一个容易做到的是发布一些“输入”数据和输入所需的处理。显示满足输入文件之间所有条件的数据。
回到顶部
查看用户资料 发送私信
Craq Giegerich

高级会员


加入时间:2007年5月19日
帖子:1512
地点:美国弗吉尼亚

发布发表:2008年3月13日,星期四,上午12:23
引用回复

引用:
因此,一旦找到匹配的键,就应该停止阅读PS


你是在自问自答。
回到顶部
查看用户资料 发送私信
克鲁梅

新的用户


已加入:2008年2月26日
帖子:4
地点:俄亥俄州范维尔特

发布发表:2008年3月13日,星期四,上午12:24
引用回复

Read语句上的AT END条件不应为CONTINUE,您没有逻辑地退出READ。根据程序的启动方式,您需要类似STOP RUN或EXIT的内容。 “继续”将带您进入程序的下一部分,即4020-COMPARE-KEY-PARA。
回到顶部
查看用户资料 发送私信
马达哈维克

新的用户


已加入:2007年10月27日
帖子:1
所在地:佛罗里达

发布发表:2008年3月13日,星期四,凌晨2点59分
引用回复

你好
我希望这个答案对您有帮助。

一旦满足您的IF条件,请尝试将一些变量设置为true。
然后,您可以使用此变量来控制您的PS文件读取段。

如果不清楚,请回复我

马杜
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2008年3月13日,星期四,上午8:21
引用回复

你好,

我对需求的理解(并且我的理解肯定不完整)告诉我需求没有完全定义,因此我怀疑任何解决方案建议也将是不完整的。

再次,如果发布了一些输入数据样本以及应该如何处理这些数据,我们可以提供更好的建议。

如果ps文件中有50条记录,vsam文件中有200条记录,其中有20条“匹配”,那么除了第一个匹配之外的19个“匹配”应该如何处理?
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 在UPDATE语句中跳过锁定的数据 DB2 9
该主题已锁定:您无法编辑帖子或回复。 将JCL连接到DD站点的一个记录中... 同步排序 2
没有新帖 同步排序错误-超出控制范围... 同步排序 10
该主题已锁定:您无法编辑帖子或回复。 Control-M信息。 清单和REXX 1
没有新帖 包含排序中的必需日期格式... DFSORT / ICETOOL 6
搜索我们的论坛:

回到顶部