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

X(5)如何运作> X(5) = ?


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

新的用户


加入时间:2007年5月25日
帖子:61
地点:哥印拜陀

发布发表:2007年5月31日,星期四,11:04 pm
引用回复

你好

我有一个变量声明像

05 TERR-CD1 PIC X05)值'100'。
05 TERR-CD2 PIC X05)值'200'。

我只是想比较一下这个Alpha数值变量,

IF TERR-CD1 > TERR-CD2
DISPLAY 'A > B'
ELSE
DISPLAY 'B > A'
END-IF.

IT'S WORKING FINE. I GAVE THE RESULT AS B > A

我只想知道,它是如何比较ALPHA数值的,而没有将其转换为数值的。此Alpha数值比较是否始终正确起作用或存在任何约束?
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2007年6月1日,星期五
引用回复

您好,欢迎来到论坛 icon_smile.gif

您定义了字符字段,系统进行了字符比较。没有涉及数字。

如果要进行数字比较,则必须告诉系统要使用数字而不是字符。

如果不清楚,请告知我们。
回到顶部
查看用户资料 发送私信
威廉·汤普森

全球主持人


已加入:2006年11月18日
帖子:3156
所在地:亚利桑那州图森

发布发表:2007年6月1日,星期五,上午4:49
引用回复

庞斯写道:
我只想知道,它是如何比较ALPHA数值的,而没有将其转换为数值的。此Alpha数值比较是否始终正确起作用或存在任何约束?
关闭您的CAPS_LOCK !!!!!
使用X(5)的PIC,您正在处理八位数据。
X'4040F1F0F0'和
X'4040F2F0F0'....从十六进制转换为二进制
01000100111100011111000011110000和
01000100111100101111000011110000并且如您所见,二进制字段中的第15个位置要比其他位置大。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2007年6月1日,星期五,上午5:56
引用回复

你好庞斯,

您有问题的答案吗?

我相信我们已经解释了发生的情况,但是我不确定这是您的完整问题。

如果您需要其他信息,请告诉我们。
回到顶部
查看用户资料 发送私信
庞斯

新的用户


加入时间:2007年5月25日
帖子:61
地点:哥印拜陀

发布发表:2007年6月1日,星期五,2:30 pm
引用回复

你好

感谢您的澄清。我得到了答案。 William Thompson用十六进制十进制和二进制解释。

但是还有一个疑问。通常情况下,字符从左到右存储。但是威廉,你提到

X'4040F1F0F0'
spsp1 0 0
X'4040F2F0F0'
spsp2 0 0

是否以上述格式或类似格式存储,

X'F1F0F04040'
1 0 0 spsp
X'F2F0F04040'
2 0 0 spsp

请告诉我。
回到顶部
查看用户资料 发送私信
威廉·汤普森

全球主持人


已加入:2006年11月18日
帖子:3156
所在地:亚利桑那州图森

发布发表:2007年6月1日,星期五,下午4:47
引用回复

哦,天哪,你抓到我了。 icon_redface.gif
您是否相信我只是在测试您... icon_rolleyes.gif
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 TWS-ETT文件触发不起作用... IBM工具 4
没有新帖 SAS工作区-B37弯 JCL和VSAM 15
没有新帖 IBM Pcomm宏startmacro命令执行... IBM工具 0
没有新帖 RACF-子组-它们如何工作? JCL和VSAM 1
没有新帖 相同的REXX程序不适用于... 清单和REXX 5
搜索我们的论坛:


回到顶部