|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
rgupta71
活跃用户
已加入：2009年6月21日
帖子：160
地点：印多尔
|
|
|
|
大家好，
当我执行下面的代码行时，它将进入if部分。
| 引用： |
如果公司代码（INDEX）等于公司代码3
与政策编号（INDEX）相等
保单号码 -10
显示“ RAHUL”
其他
显示“错误”
万一 |
但是，如果要搜索相同条件的相同索引，则全部无效。
| 引用： |
搜索所有详细记录区域
什么时候
公司代码（索引）
=公司代码3
和
政策编号（索引）
= 保单号码 -10
显示“ RAHUL-1”
执行10000次更新
10000英镑
结束搜索。 |
请让我知道原因。
谢谢。 |
|
| 回到顶部 |
|
 |
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
| 您的桌子顺序吗？ |
|
| 回到顶部 |
|
|
里奇沃克58
新的用户
已加入：2008年9月26日
帖子：51
地点：纽约
|
|
|
|
您尚未说明表的描述方式
1.您是否有OCCURS DEPENDING ON子句
2.按公司代码按升序加载吗？
保单号码
3.如果该表没有OCCURS DEPENDING ON子句-它是否已满载或已正确初始化 |
|
| 回到顶部 |
|
|
rgupta71
活跃用户
已加入：2009年6月21日
帖子：160
地点：印多尔
|
|
|
|
我明白了，我定义了一个静态表数组。因此默认情况下它的值很低。在此之前，表未按排序顺序进行搜索。
谢谢。 |
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
| rgupta71 写道： |
我明白了，我定义了一个静态表数组。因此默认情况下它的值很低。在此之前，表未按排序顺序进行搜索。
谢谢。 |
好的，我很高兴它正在工作。我不得不说，“我明白了”之后，我听不懂你在说什么。 |
|
| 回到顶部 |
|
|
罗伯特·桑普
全球主持人
已加入：2008年6月6日
帖子：8569
地点：美国爱荷华州迪比克
|
|
|
|
单击此页面顶部的“手册”链接，找到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
地点：加拿大安大略省惠特比
|
|
|
|
| 罗伯特·萨普（Robert Sample）写道： |
| 又错了。 z / OS COBOL中的内存没有默认值。某些网站（也许很多网站）都设置了一个网站参数，以将内存初始化为LOW-VALUES， 但是没有默认操作可以执行此操作-仅适用于站点标准。 |
我想第二次警告您。我已经调试了许多问题，程序员对未经初始化的存储状态做出了毫无根据的假设。我什至看到DB2 SQL协处理器生成的Cobol代码落入这个陷阱的情况。仅当程序升级到生产IMS区域时才出现的陷阱。 |
|
| 回到顶部 |
|
|
rgupta71
活跃用户
已加入：2009年6月21日
帖子：160
地点：印多尔
|
|
|
|
感谢大家纠正我的术语。
我有一个表是一个下标数组，因此，如果我在表中只有1个条目，则其他所有表都具有低值，因此该表不起作用，我以高值对其进行了初始化，并且该表可以工作。 |
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
| 我还是不太确定。您要发布相关的定义和代码吗？ |
|
| 回到顶部 |
|
|
比尔·奥博伊尔
CICS 主持人
已加入：2008年1月14日
帖子：2504
地点：美国乔治亚州亚特兰大
|
|
|
|
对于“ ODO”阵列，如果正确设置了“ ODO”上限，则“ SEARCH ALL”应该按公告的方式工作。但是，对于未填充所有条目的“ FIXED”数组，需要将整个数组初始化为HIGH-VALUES，然后初始化/加载每个条目。
不要打死人，但是需要以升序或降序填充阵列。
法案 |
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
| rgupta71 写道： |
[...]
搜索所有详细记录区域
什么时候
公司代码（索引）
=公司代码3
和
政策编号（索引）
= 保单号码 -10
显示“ RAHUL-1”
执行10000次更新
10000英镑
结束搜索。 |
回到原始位置，这里没有“找不到”的内容。 INDEX是一个“保留字”，因此也许这不是您的实际代码，并且您已经有了一些东西。
如果您使用普通的OCCURS，并将表初始化为HIGH-VALUES，则将根据表的清空程度进行几次不相关的搜索（或SEARCH进行搜索）。使用“取决于”时，将仅搜索表的“活动”部分。
检查上一个键与当前键是否相同可能会很不错，那么此时您根本不需要搜索。 |
|
| 回到顶部 |
|
|
rgupta71
活跃用户
已加入：2009年6月21日
帖子：160
地点：印多尔
|
|
|
|
没错，那不是实际的代码，而是我正在做的伪代码
使用中出现的问题取决于：在声明游标时如何知道返回的行数。不允许使用计数。
数组将具有唯一性条目，但没有DB2表。所以这不适用
| 引用： |
| 检查上一个键与当前键是否相同可能会很不错，那么此时您根本不需要搜索。 |
|
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
| 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年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
没问题，谢谢。
我是说，您的意思是取决于发生？
现在您已经拥有了，请对其进行良好的测试。
我向我报告了“性能上的显着改善”，事实证明这是无意中避免了处理的主要部分：-) |
|
| 回到顶部 |
|
|
rgupta71
活跃用户
已加入：2009年6月21日
帖子：160
地点：印多尔
|
|
|
|
实际上，该数组被定义为OCCURS 100000次，因此即使表中的条目为5，它也用于搜索10000个条目。
使用索引数组，我们减少了不必要的搜索。 |
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
| 现在，我再次感到困惑。您所说的“索引数组”是什么意思？ |
|
| 回到顶部 |
|
|
rgupta71
活跃用户
已加入：2009年6月21日
帖子：160
地点：印多尔
|
|
|
|
再次出现错误的术语。
我想参考我们使用“ DEPENDING ON”的数组。 |
|
| 回到顶部 |
|
|
比尔·伍德格
主持人荣誉
加入时间：2011年3月9日
帖子：7311
位置：矩阵内部
|
|
|
|
行。听起来不错。
祝你好运！ |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
企业cobol不允许（因为COBOL-II不允许）
全部搜索中的下标。
搜索全部需要一个 - INDEXED BY ..词组
- 升序/降序短语
TS的第一个评论是下标。 |
|
| 回到顶部 |
|
|
|
|
