IBM今天双色球开奖结果机论坛索引
 
登录
 
IBM今天双色球开奖结果机论坛索引 今天双色球开奖结果机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

ADD / SUB值


IBM今天双色球开奖结果机论坛 -> DFSORT / ICETOOL
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
奥迪

新的用户


已加入:2007年11月22日
帖子:61
地点:德国

发布发表于:星期四七月18,2019 5:09下午
引用回复

嗨伙计,

我需要有关ADD / SUB控制语句的帮助。

输入文件= LRECL = 80,RECFM = FB

码:

--------------------------------------------------
= COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---
002502 AAA      ø         BBB                     
       CCC0000007000000010CCC444444444444444444444
       111000C000C003C001C222000000000000000000000
--------------------------------------------------
002503 DDD                电子电气设备                     
       CCC0000002000000040CCC444444444444444444444
       444000C010C013C000C555000000000000000000000


有4个PD字段:
1.场(Pos = 4,Len = 4)
2.场(位置= 8,镜头= 4),
3.场(位置= 12,镜头= 4)
4.场(位置= 16,镜头= 4)

我喜欢将2.和3.字段添加到1. PD字段
并从1.字段中减去4.字段。

结果 :

码:

= COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- +-
002502 AAA     ø         BBB             
       CCC0060007000000010CCC44444444444444
       111002C000C003C001C22200000000000000
-------------------------------------------
002503 DDD  c             EEE             
       CCC0080002000000040CCC44444444444444
       444013C010C013C000C55500000000000000


我该如何解决该问题?

在此先感谢您的帮助!
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


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

发布发表于:星期四七月18,2019 5:32下午
引用回复

您尝试了什么,结果出了什么问题?
回到顶部
查看用户资料 发送私信
奥迪

新的用户


已加入:2007年11月22日
帖子:61
地点:德国

发布发表于:周四七月18,2019 5:46下午
引用回复

在我的示例中,将一个值添加到结果字段中没问题,但是再多一个…不知道
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


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

发布发表于:星期四七月18,2019 7:12下午
引用回复

该手册说明了如何:
(((field1,add,field2),add,field3),sub,(field4)
只需嵌套ADD。
至少,这就是我对示例的解释。

您可能需要在INREC上进行处理并将结果放置在记录的末尾-如有必要将其扩展,然后在OUTREC上将其移至所需位置。
我无法使用现代DFsort,因此无法玩。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


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

发布发表于:星期四七月18,2019 7:22下午
引用回复

用数字字段和常量执行算术
回到顶部
查看用户资料 发送私信
奥迪

新的用户


已加入:2007年11月22日
帖子:61
地点:德国

发布发表于:星期四七月18,2019 8:49下午
引用回复

嗨尼克

感谢您的支持 icon_smile.gif

我知道了,我的解决方案(有效):

码:

选件复制                                           
INREC IFTHEN =(WHEN=INIT,                             
              OVERLAY=(439:(((439,5,PD,ADD,498,5,PD),
                            ADD,194,5,PD),           
                            SUB,519,5,PD),           
                            TO=PD,LENGTH=5))         


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

活跃的成员


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

发布发表于:周二七月23,2019 7:01下午
引用回复

尼克·克劳斯顿(Nic Clouston)写道:
该手册说明了如何:
(((field1,add,field2),add,field3),sub,(field4)
只需嵌套ADD。

当仅使用ADD和SUB时,甚至不需要嵌套:
这些算法可以按顺序完成
(field1,ADD,field2,ADD,field3,SUB,field4)
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


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

发布发表:星期二七月23,2019 7:05下午
引用回复

奥迪写道:

我知道了,我的解决方案(有效):

码:

选件复制                                           
INREC IFTHEN =(WHEN=INIT,                             
              OVERLAY=(439:(((439,5,PD,ADD,498,5,PD),
              ADD,194,5,PD),           
              SUB,519,5,PD),           
              TO=PD,LENGTH=5))         


问候

为了清楚起见:
码:
选件复制                                           
INREC IFTHEN =(WHEN=INIT,                             
              OVERLAY=(439:(439,5,PD,
                        ADD,498,5,PD,
                        ADD,194,5,PD,           
                        SUB,519,5,PD,           
                        TO=PD,LENGTH=5))
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DFSORT / ICETOOL

 


类似主题
话题 论坛 回覆
没有新帖 抄写本在...中获取不正确的值 COBOL程式设计 7
没有新帖 JDBC驱动程序-默认值 DB2 1
没有新帖 无法查看变量的值... CA产品 1
没有新帖 位置,起始位置,列长... 同步排序 14
没有新帖 我们如何在JAVA中创建平面文件... Java和MQSeries 3
搜索我们的论坛:


回到顶部