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

搜索所有问题


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

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日星期四凌晨1:38
引用回复

大家好,

当我执行下面的代码行时,它将进入if部分。

引用:
如果公司代码(INDEX)等于公司代码3
与政策编号(INDEX)相等
保单号码 -10
显示“ RAHUL”
其他
显示“错误”
万一



但是,如果要搜索相同条件的相同索引,则全部无效。

引用:
搜索所有详细记录区域
什么时候
公司代码(索引)
=公司代码3

政策编号(索引)
= 保单号码 -10
显示“ RAHUL-1”
执行10000次更新
10000英镑

结束搜索。


请让我知道原因。

谢谢。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日星期四凌晨2:27
引用回复

您的桌子顺序吗?
回到顶部
查看用户资料 发送私信
里奇沃克58

新的用户


已加入:2008年9月26日
帖子:51
地点:纽约

 发布 发表:2011年5月5日,星期四,凌晨2:34
引用回复

您尚未说明表的描述方式
1.您是否有OCCURS DEPENDING ON子句
2.按公司代码按升序加载吗?
保单号码
3.如果该表没有OCCURS DEPENDING ON子句-它是否已满载或已正确初始化
回到顶部
查看用户资料 发送私信
rgupta71

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日,星期四2:45
引用回复

我明白了,我定义了一个静态表数组。因此默认情况下它的值很低。在此之前,表未按排序顺序进行搜索。

谢谢。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日星期四凌晨3:52
引用回复

rgupta71 写道:
我明白了,我定义了一个静态表数组。因此默认情况下它的值很低。在此之前,表未按排序顺序进行搜索。

谢谢。


好的,我很高兴它正在工作。我不得不说,“我明白了”之后,我听不懂你在说什么。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

 发布 发表:2011年5月5日,星期四4:44 am
引用回复

引用:
我定义了一个静态表数组
单击此页面顶部的“手册”链接,找到COBOL 语言参考 手册,并对其进行研究-如果需要,可以进行数周的研究-直到您停止做出此类疯狂的声明。在COBOL中没有“静态表数组”这样的东西。实际上,我在整本手册中搜索了 静态的 然后回来
引用:
6个主题有符合的项:静态

1. COBOL类定义结构,2.2
2. INVOKE语句,6.2.22
3.词汇表,词汇表
4.方法覆盖(例如方法),3.1.5.2.2
5.短语5.3.11.3
6.数据划分概述,5.1
没有一个这样引用表或数组。在本手册中,术语“静态”是指内存-仅指内存。

引用:
因此,默认情况下它的值较低。
又错了。 z / OS COBOL中的内存没有默认值。某些网站(也许很多网站)都设置了一个网站参数,以将内存初始化为LOW-VALUES, 但是没有默认操作可以执行此操作-仅适用于站点标准。
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


已加入:2010年7月6日
帖子:696
地点:加拿大安大略省惠特比

 发布 发表:2011年5月5日,星期四,下午6:24
引用回复

罗伯特·萨普(Robert Sample)写道:
又错了。 z / OS COBOL中的内存没有默认值。某些网站(也许很多网站)都设置了一个网站参数,以将内存初始化为LOW-VALUES, 但是没有默认操作可以执行此操作-仅适用于站点标准。

我想第二次警告您。我已经调试了许多问题,程序员对未经初始化的存储状态做出了毫无根据的假设。我什至看到DB2 SQL协处理器生成的Cobol代码落入这个陷阱的情况。仅当程序升级到生产IMS区域时才出现的陷阱。
回到顶部
查看用户资料 发送私信
rgupta71

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日,星期四,下午6:39
引用回复

感谢大家纠正我的术语。
我有一个表是一个下标数组,因此,如果我在表中只有1个条目,则其他所有表都具有低值,因此该表不起作用,我以高值对其进行了初始化,并且该表可以工作。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日,星期四,下午6:57
引用回复

我还是不太确定。您要发布相关的定义和代码吗?
回到顶部
查看用户资料 发送私信
比尔·奥博伊尔

CICS 主持人


已加入:2008年1月14日
帖子:2504
地点:美国乔治亚州亚特兰大

 发布 发表:2011年5月5日,星期四,7:09 pm
引用回复

对于“ ODO”阵列,如果正确设置了“ ODO”上限,则“ SEARCH ALL”应该按公告的方式工作。但是,对于未填充所有条目的“ FIXED”数组,需要将整个数组初始化为HIGH-VALUES,然后初始化/加载每个条目。

不要打死人,但是需要以升序或降序填充阵列。

法案
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日,星期四,8:13 pm
引用回复

rgupta71 写道:

[...]

搜索所有详细记录区域
什么时候
公司代码(索引)
=公司代码3

政策编号(索引)
= 保单号码 -10
显示“ RAHUL-1”
执行10000次更新
10000英镑

结束搜索。


回到原始位置,这里没有“找不到”的内容。 INDEX是一个“保留字”,因此也许这不是您的实际代码,并且您已经有了一些东西。

如果您使用普通的OCCURS,并将表初始化为HIGH-VALUES,则将根据表的清空程度进行几次不相关的搜索(或SEARCH进行搜索)。使用“取决于”时,将仅搜索表的“活动”部分。

检查上一个键与当前键是否相同可能会很不错,那么此时您根本不需要搜索。
回到顶部
查看用户资料 发送私信
rgupta71

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日,星期四,8:33 pm
引用回复

没错,那不是实际的代码,而是我正在做的伪代码
使用中出现的问题取决于:在声明游标时如何知道返回的行数。不允许使用计数。

数组将具有唯一性条目,但没有DB2表。所以这不适用
引用:
检查上一个键与当前键是否相同可能会很不错,那么此时您根本不需要搜索。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日,星期四,9:03 pm
引用回复

rgupta71 写道:
没错,那不是实际的代码,而是我正在做的伪代码
使用中出现的问题取决于:在声明游标时如何知道返回的行数。不允许使用计数。

数组将具有唯一性条目,但没有DB2表。所以这不适用
引用:
检查上一个键与当前键是否相同可能会很不错,那么此时您根本不需要搜索。


您有一个Cobol表。您正在按顺序使用唯一键加载该表。在某些时候,您完成了加载Cobol表。然后,您知道表中有多少个条目。并且(或它的副本)可以根据您的情况发生。数据来自哪里都没有关系。如果您担心DB2会给您多少回报,那么普通表和ODO都将面临同样的问题。对于SEARCH ALL,ODO的唯一用途是告诉SEARCH有多少个条目。

您说DB2条目不是唯一的吗?没什么大惊喜。与检查您是否已经在Cobol表中搜索该键有什么联系? Cobol表中的键1、2、3,DB2返回2、1、3、3、2、3、1、1、1、1、3、2、4、99、0、1、1、1。如果选中,则在19个中保存6个搜索。

码:


如果不是table-key-as-last
    do table-key-search
万一

如果table-key-found / *实际搜索了最近的密钥* /
   做表键找到处理
其他
   不在表中处理关键
万一

回到顶部
查看用户资料 发送私信
rgupta71

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日,星期四,9:30 pm
引用回复

谢谢比尔。我将数组修改为索引数组,并且在运行时有了显着改进。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日,星期四9:47 pm
引用回复

没问题,谢谢。

我是说,您的意思是取决于发生?

现在您已经拥有了,请对其进行良好的测试。

我向我报告了“性能上的显着改善”,事实证明这是无意中避免了处理的主要部分:-)
回到顶部
查看用户资料 发送私信
rgupta71

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日,星期四,9:57 pm
引用回复

实际上,该数组被定义为OCCURS 100000次,因此即使表中的条目为5,它也用于搜索10000个条目。
使用索引数组,我们减少了不必要的搜索。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日,星期四10:11 pm
引用回复

现在,我再次感到困惑。您所说的“索引数组”是什么意思?
回到顶部
查看用户资料 发送私信
rgupta71

活跃用户


已加入:2009年6月21日
帖子:160
地点:印多尔

 发布 发表:2011年5月5日,星期四10:58 pm
引用回复

再次出现错误的术语。
我想参考我们使用“ DEPENDING ON”的数组。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

 发布 发表:2011年5月5日,星期四10:59 pm
引用回复

行。听起来不错。

祝你好运!
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2011年5月6日,星期五12:08
引用回复

企业cobol不允许(因为COBOL-II不允许)
全部搜索中的下标。

搜索全部需要一个
  1. INDEXED BY ..词组
  2. 升序/降序短语


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

 


类似主题
话题 论坛 回覆
 没有新帖 Sysncsort-对齐问题 同步排序 6
 没有新帖 会员在PDS中搜索 JCL和VSAM 9
 没有新帖 获取记录长度的问题... COBOL程式设计 2
 没有新帖 尝试操纵遥控器时出现问题... DFSORT / ICETOOL 3
 没有新帖 在ISPF编辑器中进行RegEX搜索 TSO / ISPF 4
搜索我们的论坛:


 回到顶部