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

需要有关dfsort问题的帮助


IBM大型机论坛 -> DFSORT / ICETOOL
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
库什库什

新的用户


已加入:2005年6月30日
帖子:36
地点:德国

发布发表于:2020年2月2日,星期日6:34 pm
引用回复

码:

// S1 EXEC PGM =排序
// SYSOUT DD SYSOUT = *
// SORTOUT DD SYSOUT = *
// SORTIN DD *
++原因(ACTION)
22222BBBB
33333CCCC
44444DDDD
++
55555EEEE
++原因(ACTION)
Y3333CCCC
Z4444DDDD
++++
77777BBBB
88888FFFF
// SORTOUT DD SYSOUT = *
// SYSIN DD *
  选件复制
  OUTREC IFTHEN =(WHEN=GROUP,BEGIN=(11,6,CH,EQ,C'ACTION'),
    结束 =(1,2,CH,EQ,C'++'),PUSH=(31:ID=1))
  包括在内=(31,1,CH,NE,C' '),BUILD=(1,30)


结果:
++原因(动作)
++原因(动作)

它没有像'++'那样拾取结尾字符串
我究竟做错了什么?
我们在z / OS 2.2上
回到顶部
查看用户资料 发送私信
德法斯

活跃用户


已加入:2005年4月27日
帖子:319
位置:SPEW内部(美国俄亥俄州辛辛那提)

发布发表于:2020年2月2日,星期日9:54 pm
引用回复

为什么不包括

“ ++原因”或“ ++++”
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


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

发布发表:2020年2月3日星期一3:08 am
引用回复

码:
选件复制                                                   
OUTREC IFTHEN =(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'++ R'),           
  结束 =(1,2,CH,EQ,C'++',AND,1,4,CH,NE,C'++ R'),PUSH=(31:ID=1)) 
包括在内=(31,1,CH,NE,C' '),BUILD=(1,30)                 
结束                                                           


应该拿出OP想要的东西

码:
++原因(ACTION)
22222BBBB         
33333CCCC         
44444DDDD         
++               
++原因(ACTION)
Y3333CCCC         
Z4444DDDD         
++++             
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


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

发布发表:2020年2月3日星期一9:10 pm
引用回复

乔格·芬代森写道:
码:
选件复制                                                   
OUTREC IFTHEN =(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'++ R'),           
  结束 =(1,2,CH,EQ,C'++',AND,1,4,CH,NE,C'++ R'),PUSH=(31:ID=1)) 
包括在内=(31,1,CH,NE,C' '),BUILD=(1,30)                 
结束                                                           



码:
选件复制                                                   
OUTREC IFTHEN =(WHEN=GROUP,
       BEGIN=(1,4,CH,EQ,C'++ R'),           
       END=(1,2,CH,EQ,C'++         '),
       PUSH=(31:ID=1)) 
包括在内=(31,1,CH,NE,C' '),
       BUILD=(1,30)                 
结束                                                           
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


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

发布发表于:2020年2月3日星期一11:28 pm
引用回复

塞尔吉肯写道:

码:
选件复制                                                   
OUTREC IFTHEN =(WHEN=GROUP,
       BEGIN=(1,4,CH,EQ,C'++ R'),           
       END=(1,2,CH,EQ,C'++         '),
       PUSH=(31:ID=1)) 
包括在内=(31,1,CH,NE,C' '),
       BUILD=(1,30)                 
结束

码:
++原因(ACTION)
++原因(ACTION)

不完全是OP想要的。当您在与以前相同的位置比较字符串太长时,什么都不会改变。当END =()具有固定长度时,您可以编写类似于您的代码。我认为那是意图。
码:
选件复制                                                   
OUTREC IFTHEN =(WHEN=GROUP,
       BEGIN=(1,4,CH,EQ,C'++ R'),           
       END=(1,30,CH,EQ,C'++'),
       PUSH=(31:ID=1)) 
包括在内=(31,1,CH,NE,C' '),
       BUILD=(1,30)                 
结束
回到顶部
查看用户资料 发送私信
库什库什

新的用户


已加入:2005年6月30日
帖子:36
地点:德国

发布发表:星期二2020年2月4日上午12:42
引用回复

谢谢德诺法斯和约尔格
如您所愿,它正在工作

库什胡什
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


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

发布发表:星期二2020年2月4日上午12:45
引用回复

猜猜它是IBM Kassandra Service的一部分,您正在从中解析ACTIONS。请享用 icon_smile.gif
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


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

发布发表:星期二2020年2月4日下午7:46
引用回复

乔格·芬代森写道:
塞尔吉肯写道:

码:
选件复制                                                   
OUTREC IFTHEN =(WHEN=GROUP,
       BEGIN=(1,4,CH,EQ,C'++ R'),           
       END=(1,2,CH,EQ,C'++         '),
       PUSH=(31:ID=1)) 
包括在内=(31,1,CH,NE,C' '),
       BUILD=(1,30)                 
结束

码:
++原因(ACTION)
++原因(ACTION)

不完全是OP想要的。当您在与以前相同的位置比较字符串太长时,什么都不会改变。当END =()具有固定长度时,您可以编写类似于您的代码。我认为那是意图。


是,你说得对。抱歉。
只是忘了增加END =参数中的字段长度。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DFSORT / ICETOOL

 


类似主题
话题 论坛 回覆
没有新帖 Sysncsort-对齐问题 同步排序 6
没有新帖 用dfsort联接线 DFSORT / ICETOOL 5
没有新帖 获取记录长度的问题... COBOL程式设计 2
没有新帖 尝试操纵遥控器时出现问题... DFSORT / ICETOOL 3
没有新帖 使用...将k隐蔽至1000 / m至1000000 DFSORT / ICETOOL 5
搜索我们的论坛:


回到顶部