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

在Vb fi中更新或向粒子pos添加值的命令


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
praveenmaga

新的用户


已加入:2009年6月27日
帖子:6
地点:班加罗尔

发布发表:2009年11月13日,星期五,凌晨2:22
引用回复

是否有任何命令将值写入VB文件中的粒子位置?
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2009年11月13日,星期五,凌晨2:58
引用回复

您好,

建议您多投资一些击键,并更完整地描述您的要求。 。 。

显示输入的外观以及如何编写输出。

提及文件的lrecl和recfm。
回到顶部
查看用户资料 发送私信
沙耶拉吉

新的用户


已加入:2007年9月28日
帖子:71
地点:印度。

发布发表:2009年11月13日,星期五,下午3:20
引用回复

无需在程序中将VB文件与FB区分。 Rexx将值放在您指定的位置。通过输入cols可以在文件中看到该位置。

您可以使用插入或覆盖功能将字符串放置在文件中的所需位置。

假设您要在第五列中插入字符串“ AA”(这就是我所假设的“特定位置”的意思)

码:

"执行*磁盘输入(STEM INP. FINIS"
INP.1 =叠加('AA',INP.1,5)         
"执行*磁盘输入(STEM INP. FINIS"


上面的代码将读取文件并将'AA'放置在第一条记录的第五列中。

仅当您使用Rexx对数据集进行分类时,VB才有所作为。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2009年11月13日,星期五,下午4:05
引用回复

沙耶拉吉写道:
仅当您使用Rexx对数据集进行分类时,VB才有所作为。

您能解释一下吗,因为我在使用REXX的20多年中从未遇到过任何差异
回到顶部
查看用户资料 发送私信
沙耶拉吉

新的用户


已加入:2007年9月28日
帖子:71
地点:印度。

发布发表:2009年11月13日,星期五,下午5:02
引用回复

我的意思是我们在使用TSO命令“分配”创建新PS文件时使用的记录格式(FB,VB)。
如果我错了,请纠正我。
回到顶部
查看用户资料 发送私信
普里诺
警告:1

高级会员


已加入:2009年2月7日
职位:1241
地点:立陶宛维尔纽斯

发布发表:2009年11月13日,星期五,下午5:23
引用回复

沙耶拉吉写道:
我的意思是我们在使用TSO命令“分配”创建新PS文件时使用的记录格式(FB,VB)。
如果我错了,请纠正我。


而且说草是绿色的也同样有用。
回到顶部
查看用户资料 发送私信
沙耶拉吉

新的用户


已加入:2007年9月28日
帖子:71
地点:印度。

发布发表:2009年11月13日,星期五,下午5:39
引用回复

引用:

而且说草是绿色的也同样有用。


提供附加信息不会造成任何伤害。认为这对REXX的外星人可能有用。 icon_wink.gif
回到顶部
查看用户资料 发送私信
praveenmaga

新的用户


已加入:2009年6月27日
帖子:6
地点:班加罗尔

发布发表:2009年11月13日,星期五,9:31 pm
引用回复

thnx。
抱歉,我可能错过了我的帖子。
我不想将硬编码值添加到输出文件。
应该是这样的
读取输入文件并将值从colm 2改为3
并将其写入输出文件中colm 8至10中的第一条记录。
回到顶部
查看用户资料 发送私信
praveenmaga

新的用户


已加入:2009年6月27日
帖子:6
地点:班加罗尔

发布发表:2009年11月13日,星期五,9:48 pm
引用回复

'EXECIO * DISKR HI(STEM LINES. FINIS'
我= 1对线.0
LINES.I =重叠(LINES.I,2341)
'EXECIO * DISKW HI1(STEM LINES. FINIS'
结束

这是我的代码。
当我尝试这个...它仅在输出文件中将值添加到第一个列。
它应该读取第一条记录,并将值从colm 2改为3,然后将第一条记录写入到colm 7-8 ...等等,
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2009年11月13日,星期五,9:51 pm
引用回复

重复:
引用:
显示输入的外观以及如何编写输出。
您已经按照要求完成了操作,那么您将节省一天。 。 。
回到顶部
查看用户资料 发送私信
沙耶拉吉

新的用户


已加入:2007年9月28日
帖子:71
地点:印度。

发布发表:2009年11月13日,星期五,晚上10:12
引用回复

希望这可以..

码:

'EXECIO * DISKR HI(STEM LINES. FINIS' 
'EXECIO * DISKR HI1(STEM LINES1. FINIS' 
我= 1对线.0                     
INP = SUBSTR(LINES.I,2,2)               
LINES1.I =重叠(INP,LINES.I,7)       
结束                                     
'EXECIO * DISKW HI1(STEM LINES1. FINIS'


假设您的输入和输出文件具有不同的数据..您只想在输入中的位置2-3取字段并将其覆盖在输出中的位置7-8,并且您拥有相等数量的输入和输出记录。
回到顶部
查看用户资料 发送私信
praveenmaga

新的用户


已加入:2009年6月27日
帖子:6
地点:班加罗尔

发布发表:2009年11月13日,星期五10:39 pm
引用回复

码:

/ * REXX * /
...
'EXECIO * DISKR HI(STEM LINES. FINIS'                           
我= 1对线.0                                               
  N = SUBSTR(LINES.I,1,5)                                           
  SAY N                                                             
  LINES.I = OVERLAY(N,LINES.I,2341)                   
结束         
'EXECIO * DISKW HI1(STEM LINES. FINIS'
出口     


我现在按照您所说的来运行此代码...它在2341 colm上覆盖..也在开始的colm 1.中覆盖,请提供建议。
回到顶部
查看用户资料 发送私信
沙耶拉吉

新的用户


已加入:2007年9月28日
帖子:71
地点:印度。

发布发表:2009年11月13日,星期五,晚上10:56
引用回复

天啊....

它没有重叠在第一列中。您正处于第1-5位的位置,并处于2341位。

因此该字段将在2341中,并且将在第1列中,因为它是其实际位置...

这就是我在上一个示例中使用不同词干进行输入和输出的原因。如果您的输出数据不同,则在重叠之前将其读入茎中,然后将输出茎与子字符串重叠在所需位置。

希望这可以帮助。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 DB2I面板中的命令行放置 TSO / ISPF 2
没有新帖 在UPDATE语句中跳过锁定的数据 DB2 9
没有新帖 更改存在的LRECL的命令... JCL和VSAM 7
没有新帖 如何在ISPSTART中传递参数... 清单& REXX 6
没有新帖 两个文件之间的组比较/更新 DFSORT / ICETOOL 10
搜索我们的论坛:


回到顶部