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

查找字帖长度的方法


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

主持人荣誉


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

发布发表:2008年6月22日,星期日,上午5:10
引用回复

您好,

引用:
In COBOL we are having the DISPLAY verb and we are also having "的长度".
Why is then DISPLAY 的长度 VARIABLE not being COBOL?
您不能像您想做的那样“混合搭配”。它不是cobol的一部分,因为负责语言开发的人员没有理由将其包括在内。

您必须按预期使用语法(这在您未使用的手册中)。网页顶部是“ IBM手册”的链接-cobol手册是第一批。如果您在手册中查找,您将找不到“显示长度为”的按钮。即使所有这些都是该语言的有效部分,您也不会找到(也无法编译)“通过提供工作存储的特殊名称的文件部分”。

如果您的目标是获取长度,并且您没有查看Pierre的链接,则应该这样做。您也可能会从会说汇编器并查看Bill的建议的人那里获得帮助。

如果您希望更改编译器的性能以使其达到预期的效果,则需要处理一些失望的事情 icon_smile.gif
回到顶部
查看用户资料 发送私信
斯里尼瓦斯·乔治

新的用户


已加入:2008年5月31日
帖子:4
地点:班加罗尔

发布发表:2008年6月22日,星期日2:14 pm
引用回复

Grettings Pankaj Gupta,
当然,“添加到文件部分的工作存储”是最有趣的,但是在尝试使用时并没有错
码:
DISPLAY 的长度 VARIABLE

是的,但是只有一步之遥。当然,我们必须将LENGTH OF分配给变量,然后可以显示变量。我现在为您详细说明代码:

码:
SET VARIABLE TO 的长度 TOP-VARIABLE-OF-COPYBOOK
显示变量


您一定会发现它将编译。除非您是,否则请使用长牙OSVS COBOL。

如果我们使用OSVS COBOL,可以使用汇编程序例程来确定一本抄写本的长度,这一定会让我很感兴趣。在这种情况下,我们当然可以这样说:

码:
检查 TOP-LEVEL-OF-COPYBOOK
字符的总计

不,我们不可以。 。 。

执行此代码后,是的,变量VARIABLE当然将包含抄写本的长度。汇编程序子例程似乎可以确定。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2008年6月22日,星期日,晚上10:17
引用回复

你好斯里尼瓦斯·乔治,

在发布之前您做了吗 测试 - 在IBM大型机上?

我不信任自己的记忆,因此我通过页面顶部的“ IBM手册”链接查看了可用的COBOL手册,并且我记得,不再支持EXAMINE。为了做同样的事情,现在使用INSPECT。如果您编码EXAMINE并使用Enterprise(最新)COBOL,则EXAMINE会导致以下情况:
码:
 955  IGYPS2072-S   "EXAMINE" WAS INVALID. 跳到下一个动词


如果一个人使用INSPECT(与Enterprise COBOL一起)并尝试合计本抄写本的长度,则结果不是(总是?)正确的长度。

如果要发布“解决方案”,则需要对其进行测试,并且测试必须在这些论坛所涵盖的环境中进行(即仅IBM大型机-使用IBM编译器)。
回到顶部
查看用户资料 发送私信
斯里尼瓦斯·乔治

新的用户


已加入:2008年5月31日
帖子:4
地点:班加罗尔

发布发表:2008年6月23日星期一1:02 pm
引用回复

迪克先生,我谨此致歉。当我要输入“ INSPECT”时,我肯定输入了“ 检查”。

在OSVS CObol上,正如我的帖子肯定提到的那样,这将给出正确的长度。请注意,是的,您当然应该先将计数器设置为零:

码:
将零移动到变量
检查复印本的最高级别
字符的总计


在此代码之后,字段“ VARIABLE” 是的,包含所有肯定在顶层以下的正确长度。我每天都在使用此代码。这当然是正确的,并且确实可以工作。

我再次为输入错误的动词表示歉意。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2008年6月23日星期一6:33 pm
引用回复

您好,

引用:
我再次为输入错误的动词表示歉意。
没问题-我们都会犯这个错误(如果我们编码的时间足够长,可以记住考试) icon_smile.gif

就INSPECT而言,当我进行了一些不完整的测试时,length的值适用于非常简单的抄写本,但我没有达到我期望的复杂抄写本(它的长度超过14k,并且包含许多重新定义和几个重复的组)。时间允许的话,我今天再尝试。

我之所以提到使用IBM大型机,是因为我们收到了UNIX和Windows的帖子,这些帖子具有ibm cobol编译器不支持的编译器功能(扩展名)。很抱歉对于这个误会 icon_redface.gif
回到顶部
查看用户资料 发送私信
比尔·奥博伊尔

CICS主持人


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

发布发表:2008年6月23日星期一6:44 pm
引用回复

在运行CICS的OS / VS COBOL环境中,请勿使用EXAMINE,TRANSFORM,INSPECT等动词,因为它们在内部会发出MVS GETMAIN,因此,该区域最终会出现S80A异常终止。虚拟存储已用尽。不在CICS t / w OS / VS COBOL中使用这些动词是一个已知的错误。

嗯...

问候,

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

 


类似主题
话题 论坛 回覆
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
没有新帖 文件状态-可变长度39 COBOL程式设计 2
没有新帖 如何查找哪个文件包含我的文件... DFSORT / ICETOOL 6
没有新帖 无法找到DB2 ROWS DB2 2
没有新帖 BMS映射长度字段大于零 CICS 3
搜索我们的论坛:


回到顶部