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

根据输入中的偏移值对VB记录使用排序


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

新的用户


已加入:2020年12月15日
帖子:3
所在地:美国

发布发表:星期二2020年12月15日上午12:37
引用回复

嗨-我不确定是否可以使用sort ....
但是我有一个VB输入文件。第一个字节(在RDW之后)是标头长度(十六进制长度= 1)字段,后跟标头信息,然后记录详细信息。

我想提取该长度值以超出该标题信息,而仅将详细数据放入我的输出文件中。

使用sort听起来是否可行?
我曾尝试使用parse ...,但似乎parse变量似乎不能用作OUTFIL中的起始位置。


码:
档案中

n12345约翰·史密斯     where n=x'05'
n123贝蒂·琼斯        where n=x'03'


码:
外档

约翰·史密斯
贝蒂·琼斯


输出文件应保留为VB。
为您编码
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃成员


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

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

码:
INREC IFTHEN =(WHEN=(5,1,BI,EQ,+1),BUILD=(1,4,6)),
      IFTHEN=(WHEN=(5,1,BI,EQ,+2),BUILD=(1,4,7)),
      IFTHEN=(WHEN=(5,1,BI,EQ,+3),BUILD=(1,4,8)),
      . . . . . . .
      IFTHEN=(WHEN=(5,1,BI,EQ,+100),BUILD=(1,4,105))
回到顶部
查看用户资料 发送私信
dbrockman192

新的用户


已加入:2020年12月15日
帖子:3
所在地:美国

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

谢谢sergeyken ....

因为该字段的偏移量是xl1,所以您建议使用255“ IFTHEN's?
那会工作的...

我希望我可以将XL1偏移值读入一个类似于PARSE可用选项的变量,然后以某种方式将其用作outfil中的起始位置。
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃成员


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

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

dbrockman192写道:
谢谢sergeyken ....

因为该字段的偏移量是xl1,所以您建议使用255“ IFTHEN's?
那会工作的...

我希望我可以将XL1偏移值读入一个类似于PARSE可用选项的变量,然后以某种方式将其用作outfil中的起始位置。

1.这是愚蠢的数据格式初始设计的典型结果。

2.为控制语句创建255条典型行并不重要。在REPF到S​​ORT实用程序本身中,可以在ISPF编辑器中手动进行,也可以使用多种可用工具之一“自动”进行。
回到顶部
查看用户资料 发送私信
dbrockman192

新的用户


已加入:2020年12月15日
帖子:3
所在地:美国

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

知道...

我就是这样做的,它奏效了。
谢谢!感谢小费!
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


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

发布发表:星期二2020年12月15日上午3:37
引用回复

或者,您可以复制它并用空格替换RDW编号后的第一个1-5,然后将其在左边压缩,这时从它的起始位置开始都无所谓。
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


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

发布发表于:星期二2020年12月15日下午1:50
引用回复

罗希特·乌马尔吉卡(Rohit Umarjikar)写道:
或者,您可以复制它并用空格替换RDW编号后的第一个1-5,然后将其在左边压缩,这时从它的起始位置开始都无所谓。

这可能会更改记录详细信息。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DFSORT / ICETOOL

 


类似主题
话题 论坛 回覆
没有新帖 将匹配的记录写入输出文件 DFSORT / ICETOOL 1
没有新帖 建立排序键 DFSORT / ICETOOL 3
没有新帖 很大排序失败-寻求识别... DFSORT / ICETOOL 7
没有新帖 使用SORT进行日期转换 同步排序 4
没有新帖 合并两个以上的记录 DFSORT / ICETOOL 15
搜索我们的论坛:

回到顶部