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

比较两个字符变量Head Scratcher


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
哈罗德·巴恩斯

新的用户


已加入:2015年10月27日
帖子:30
所在地:美国

发布发表于:星期五八月28,2020 12:38上午
引用回复

有人可以解释为什么9个字符比较不相等(正确)但10个字符比较不相等或不相等吗?


/ * REXX * /
追踪o
/ *
en =“ 1000000464”
xs =“ 1000000468”
* /

en =“ 100000464”
xs =“ 100000468”

如果en¬= xs

say "不平等"
-1号出口
结束

如果en == xs

说“相等”
exit 0
结束

说“ 99号出口”
出口99




/ * REXX * /
追踪o

en =“ 1000000464”
xs =“ 1000000468”

/ *
en =“ 100000464”
xs =“ 100000468”
* /

如果en¬= xs

say "不平等"
-1号出口
结束

如果en == xs

说“相等”
exit 0
结束

说“ 99号出口”
出口99
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


已加入:2015年8月15日
帖子:389
地点:德国班贝格

发布发表于:星期五八月28,2020 3:16上午
引用回复

请参阅默认的DIGITS。再次尝试添加以下代码:
码:
数字数字10

看看区别。

PS:将==更改为=
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


已加入:2015年8月15日
帖子:389
地点:德国班贝格

发布发表于:2020年8月28日星期五3:30上午
引用回复

要比较字符串,请使用compare()函数。

码:
如果比较(en,xs)¬=0 then say "Not 等于"; else say "Equal"
回到顶部
查看用户资料 发送私信
哈罗德·巴恩斯

新的用户


已加入:2015年10月27日
帖子:30
所在地:美国

发布发表:2020年8月28日星期五4:46上午
引用回复

它与非严格比较有关。
我改用严格比较,现在可以正常使用了。
是时候了解严格的比较了。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
该主题已锁定:您无法编辑帖子或回复。 写字符到十六进制文件中... COBOL程式设计 8
没有新帖 十六进制组比较并写入... DFSORT / ICETOOL 5
没有新帖 使用JCL / Rexx比较多个文件... JCL和VSAM 4
搜索我们的论坛:


回到顶部