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

带SyncSort的数值检查。


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

新的用户


已加入:2017年8月31日
帖子:18
地点:美国

发布发表:2021年1月24日星期日上午12:52
引用回复

我需要将打包的文件转换为解压缩。直到记录中间的三个字段都达到双重目的,我才遇到任何问题。这是一个重新定义的字段,可以是PIC S(15)COMP-3或PIC X(15)。

我将如何使用sort转换它?

码:
排序字段=复制                                     
外场=(1:1,2,PD,TO = FS,LENGTH = 3,               
               4:3,2,                                 
               6:5,1,                                 
               7:C'+',                               
               8:6,8,PD,M11,LENGTH = 15<-- Field in question
            124:89,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            140:97,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            156:105,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            172:113,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            188:121,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            204:129,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            220:137,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-),
            236:145,8,PD,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-))     


当它是非数字数据时,“有问题的字段”将失败。我尝试使用以下内容:
码:
6,8,PD,NE,NUM),OVERLAY=(8:6,15)

外场=(1:1,2,PD,TO = FS,LENGTH = 3,         
               4:3,2,                           
               6:5,1,                           
               7:C'+',                           
               8:6,8,PD,NE,NUM,OVERLAY =(8:6,15))
                        *                       
WER813I 将使用MFX负载库中的安装选项
WER268A  OUTREC STATEMENT  : SYNTAX ERROR                     
WER211B  SYNCSMF 通过SYNCSORT调用; RC = 0000                 

但是,我收到语法错误。

因此,简而言之,如果该字段为数字,我想将该字段从PD转换为ZD(带有其各自的符号)。如果不是数字,我想将所有15个字符都移到输出,并为该字段的符号指示器使用空格。

谢谢!
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃成员


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

发布发表于:2021年1月24日,星期日
引用回复

码:
 IFTHEN=(WHEN=(6,8,PD,NE,NUM),
           OVERLAY=(8:...))
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 同步排序

 


类似主题
话题 论坛 回覆
没有新帖 通过SYNCSORT,每月的最后一天。 同步排序 5
没有新帖 如何从数字d获取总计数... 同步排序 9
没有新帖 同步排序错误-超出控制范围... 同步排序 10
没有新帖 XML-GENERATE呈现编辑后的数字 COBOL程式设计 0
没有新帖 将数字转换为压缩十进制 DFSORT / ICETOOL 9
搜索我们的论坛:

回到顶部