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

比较字段与十进制


IBM大型机论坛 -> 同步排序
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
chandan.inst

活跃用户


加入:2005年11月3日
帖子:275
地点:孟买

发布发表于:周四四月04,2019 5:29下午
引用回复

大家好,

我要比较的输入文件中有两个13字节的字段,这些字段中有硬编码的十进制数。所以第二场如下

码:
场1 -12.3


码:
区域2-9.12


当field1大于Field 2时,我想消除记录舞会处理。

此处捕获的字段没有前导零,所以我无法进行字符比较,因为这里
码:
12
被认为少于
码:
9.


当我的领域像
码:
12.30
and
码:
11.40
its working fine.

我试图在论坛上搜索,但没有运气 icon_sad.gif

任何对此的投入将不胜感激

谢谢,
昌丹
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2582
地点:美国纽约

发布发表于:星期五四月05,2019 1:33上午
引用回复

因此,基本上,您需要重新格式化这些字段以使其具有前导零和/或尾随零,如果您知道这些字段的长度或十进制类型,那么请告诉我们?如果答案是肯定的,那么互联网上有很多与此相关的帖子,请查看您是否与所寻找的内容接近。
例如 ibmmainframes.com/about38466.html
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
职位:941
所在地:马里兰

发布发表:星期五四月05,2019 10:25下午
引用回复

这是一个简单的示例,使用SYNCSORT作为工具
码:
// * =============================================== ======================
//输入    EXEC PGM=SYNCSORT                                           
// *                                                                     
// SYSOUT   DD  SYSOUT=*                                                 
// *                                                                     
// SORTIN   DD  *                                                       
12.3           9.57           X                                         
12.3           11.40          X                                         
12.3           99.57          X                                         
12.3           1000.40        X                                         
12.3           12.300000      X                                         
12.3           0000012.3      X                                         
// *                                                                     
//整理  DD  SYSOUT=*                                                 
// *                                                                     
// SYSIN    DD  *                                                       
 INREC PARSE=(%1=(ABSPOS=1,                                             
                  STARTAT=NONBLANK,                                     
                  ENDBEFR=C'.',                                         
                  ENDBEFR=BLANKS,                                       
                  FIXLEN=13),                                           
              %2=(ENDBEFR=BLANKS,                                       
                  FIXLEN=13),                                           
              %3=(ABSPOS=15,                                           
                  STARTAT=NONBLANK,                                     
                  ENDBEFR=C'.',                                         
                  ENDBEFR=BLANKS,                                       
                  FIXLEN=13),                                           
              %4=(ENDBEFR=BLANKS,                                       
                  FIXLEN=13)),                                         
       BUILD=(1,15,                                                     
             16,15,                                                     
              %1,JFY=(SHIFT = RIGHT,LENGTH = 10,LEAD = C'0000000000'),       
              %2,JFY=(SHIFT =左,LENGTH = 5,TRAIL = C'00000'),             
              X,                                                       
              %3,JFY=(SHIFT = RIGHT,LENGTH = 10,LEAD = C'0000000000'),       
              %4,JFY=(SHIFT =左,LENGTH = 5,TRAIL = C'00000'))             
 SORT FIELDS=COPY                                                       
*                                                                       
 OUTFIL FNAMES=(SORTOUT),                                               
        IFTHEN=(WHEN=(31,15,ZD,GT,47,15,ZD),                           
                BUILD=(1,61,C'<== GREATER')),                           
        IFTHEN=(WHEN=(31,15,ZD,LT,47,15,ZD),                           
                BUILD=(1,61,C'<== LESS')),                             
        IFTHEN=(WHEN=(31,15,ZD,EQ,47,15,ZD),                           
                BUILD=(1,61,C'<== EQUAL'))                             
*                                                                       
 END                                                                   
// *                                                                     
// * =============================================== ======================


结果看起来像这样
码:
**************************************数据顶部************** ***************
12.3           9.57           000000001230000 000000000957000<== GREATER   
12.3           11.40         000000001230000 000000001140000<== GREATER   
12.3           99.57         000000001230000 000000009957000<== LESS     
12.3           1000.40       000000001230000 000000100040000<== LESS     
12.3           12.300000     000000001230000 000000001230000<== EQUAL     
12.3           0000012.3     000000001230000 000000001230000<== EQUAL     
********************************数据底部*************** ************


如果您还想考虑正面/负面价值观,这对您自己来说是一个培训机会。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表于:星期五四月05,2019 11:09下午
引用回复

syncosrt是否不像dfsort一样支持SFF格式?
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
职位:941
所在地:马里兰

发布发表于:星期五四月05,2019 11:30下午
引用回复

恩里科·索里切蒂写道:
syncosrt是否不像dfsort一样支持SFF格式?

它可以,但是除数字和减号外的所有东西都将被忽略,包括小数点今天双色球开奖结果

引用:
SFF-带签名的免费格式。

从右到左提取小数位数(0-9)以形成数字值。在该字段中找到一个字符“?”或“”将导致该值被视为负数。该字段中的所有其他非十进制数字值将被忽略。最多可以提供31位数字。当在该字段中找到多于31位数字时,最左边的数字将被忽略。
回到顶部
查看用户资料 发送私信
chandan.inst

活跃用户


加入:2005年11月3日
帖子:275
地点:孟买

发布发表于:星期一四月08,2019 9:30上午
引用回复

非常感谢sergeyken。我将尝试使用此解决方案
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
职位:941
所在地:马里兰

发布发表于:星期五四月12,2019 11:45下午
引用回复

chandan.inst写道:
非常感谢sergeyken。我将尝试使用此解决方案

我注意到那个参数 结束BEFR =空白 可能会给一些输入数据带来意想不到的问题。
现在我建议将其替换为 结束BEFR = C''
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 同步排序

 


类似主题
话题 论坛 回覆
没有新帖 比较文件记录计数百分比今天双色球开奖结果 DFSORT / ICETOOL 4
没有新帖 比较两个文件以查找位置/日期今天双色球开奖结果 同步排序 2
没有新帖 如何覆盖压缩的十进制值今天双色球开奖结果 DFSORT / ICETOOL 5
没有新帖 十六进制组比较并写入今天双色球开奖结果 DFSORT / ICETOOL 5
没有新帖 将记录分解为各个字段,每个字段今天双色球开奖结果 同步排序 2
搜索我们的论坛:


回到顶部