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

将文件从PD转换为显示格式。


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

新的用户


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

发布发表:2021年1月14日星期四12:32下午
引用回复

我必须将具有COMP-3字段的文件转换为显示格式。

码:
05 DP-BIG-BAL      PIC S9(11)V99        COMP-3.


但是,显示字帖有一个指示符。

码:
05 WS-BIG-BAL-IND PIC X(1).   
05  WS-BIG-BAL     PIC 9(11)V99.


我的问题是,可以在一个排序步骤中询问余额字段以确定符号应为“ +”还是“-”?我只是对“ +”(正号)进行了硬编码。

码:
35:C'+',                   
36:35,7,PD,TO = ZDF,LENGTH = 13


任何帮助将不胜感激!

谢谢!
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2454
地点:英国汉普郡

发布发表:2021年1月14日星期四5:20下午
引用回复

我将从查看IFTHEN开始。
回到顶部
查看用户资料 发送私信
寒意

新的用户


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

发布发表:2021年1月14日,星期四,下午6:21
引用回复

衷心的歉意,Nic,我尝试了IFTHEN,但没有成功(并且对我没有发布带有各自错误消息的代码感到posting愧。 icon_redface.gif icon_redface.gif )。

在搜索论坛时,它没有工作,因为我忽略了使用HIT = NEXT,并且我的语法不正确。问题已解决(在您的帮助下。 icon_super.gif 36_8_15.gif )。

这是代码:
码:
INREC IFTHEN =(WHEN=(35,7,PD,LT,0),   
          OVERLAY=(74:C'-'),HIT=NEXT),
          IFTHEN=(WHEN=(35,7,PD,GE,0),
          OVERLAY=(74:C'+'),HIT=NEXT),
          IFTHEN=(WHEN=(42,7,PD,LT,0),
          OVERLAY=(75:C'-'),HIT=NEXT),
          IFTHEN=(WHEN=(42,7,PD,GE,0),
          OVERLAY=(75:C'+'),HIT=NEXT)

外场=(1:1,34,                   
              35:74,1,                   
              36:35,7,PD,TO = ZDF,LENGTH = 13,
              49:75,1,                   
              50:42,7,PD,TO = ZDF,LENGTH = 13)


我敢肯定有一种更有效的方法,但这对我有用。

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

活跃成员


已加入:2008年4月29日
帖子:934
所在地:马里兰

发布发表:2021年1月14日星期四6:32下午
引用回复

将其作为单个拆包操作,并考虑将您的“ IND”字段作为此拆包的单个输出字段的一部分。
码:
 BUILD=(...,35:35,7,PD,ZD,EDIT=(STTTTTTTTTTT.TT),SIGNS=(+,-),...)
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


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

发布发表:2021年1月15日星期五凌晨1:50
引用回复

编辑数字字段
注意-它适用于DFSORT,但概念与SYNCSORT相同,但具有或多或少的功能。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 同步排序

 


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

回到顶部